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Einleitung 1 


Einleitung 


Die Gliederung dieses Buches 


Das vorliegende Buch ist nach übergreifenden Themenbereichen 
in drei Teile gegliedert: 


Der erste Teil beschäftigt sich ausschließlich mit dem BASIC der 
Schneider-Rechner. Dort werden interessante und nützliche 
BASIC-Programme und -Routinen vorgestellt, sowie einige 
nützliche Tips im Umgang mit dem BASIC, die beispielsweise 
den Schutz eigener Programme oder die Beschleunigung von 
BASIC-Programmen betreffen. 

Am Ende dieses Teils finden Sie eine genaue Beschreibung von 
Schneider-spezifischen BASIC-Befehlen mit Angaben über das 
Einsatzgebiet dieser Befehle. 


Der zweite Teil enthält Maschinenroutinen, die sofort eingesetzt 
werden können und sinnvolle Ergänzungen der Möglichkeiten 
des BASIC-Interpreters bilden. 

Obwohl die in diesem Teil vorgestellten Programme durchweg in 
Maschinensprache geschrieben sind, haben sie, als sofort 
betriebsbereite Programme, auch für diejenigen Leser einen 
Wert, die mit Maschinensprache ’nichts am Hut haben’. 

Obwohl dieser Teil in erster Linie fertige Programme zum 
Abtippen bietet, finden Sie auch dort sicherlich nützliche 
Hintergrundinformationen. 


Der dritte Teil dieses Buches beschäftigt sich mit der 
Maschinensprache des Schneider-Rechners. Er enthält eine recht 
umfangreiche Liste interessanter Routinen des Betriebssystems 
und des BASIC-Interpreters. Weiterhin finden sich dort einige 
Tips und Tricks für die effektive Programmierung in 
Maschinensprache (Zeitoptimierung), sowie für die Verwendung 
bestimmter Mechanismen die Schneider-Betriebssystems, wie 
zum Beispiel die Befehlserweiterung mittels RSX. 

Das Kapitel 23 ın diesem Teil beschreibt eine nach unseren 
Informationen bislang unveröffentlichte Methode für die 
Relokalisation (Verschiebung mit Anpassung absoluter Adressen) 
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von Maschinenprogrammen. Dieses Kapitel wurde besonders 
ausführlich gestaltet, um die dort benutzten Techniken der 
Änderung eines Programmes durch ein Programm und einer 
trickreichen Benutzung des Stacks offenzulegen. Aus diesem 
Kapitel können sicherlich auch etwas fortgeschrittenere 
Maschinenprogrammierer noch etwas über ’Maschinen- 
programmierung mit Stil’ lernen. 

Obwohl sich der dritte Teil praktisch ausschließlich mit 
Maschinensprache beschäftigt, dürfte er auch von Interesse für 
die Leser sein, die bislang noch keinen näheren Kontakt mit der 
Maschinensprache hatten. Besonders die ersten beiden Kapitel 
dieses Teils sind mit Rücksicht auf diese Lesergruppe mit ein- 
führendem Charakter geschrieben worden und enthalten ausge- 
sprochen ausführlich erklärte und aufgrund ihres geringen 
Umfangs sehr übersichtliche Beispielprogramme. 


Die Notation von hexadezimalen Zahlen 


Hexadezimale Zahlen sind in diesem Buch grundsätzlich durch 
ein vorangestelltes ’&’ gekennzeichnet. Dies ist die Notation, die 
auch vom Schneider-BASIC verwendet wird; wir haben sie aus 
Gründen der Standardisierung übernommen. Einige Assembler 
verwenden andere Notationen (beispielsweise ein vorangestelltes 
’#’ oder ein nachgestelltes ’H’). In diesem Fall ist natürlich beim 
Übernehmen der Source-Listings auf eine entsprechende 
Anpassung zu achten. 


Sonderzeichen in Listings 


In diesem Buch werden Sie des öfteren dem Zeichen ’*’ begeg- 
nen. Verzweifeln Sie nicht bei der Suche dieses Zeichens auf der 
Tastatur Ihres Rechners! Es entspricht dem Pfeil nach oben, der 
im BASIC als Potenzierungsoperator verwendet wird. Der Hoch- 
pfeil wird üblicherweise als ’*’ von einem Drucker ausgegeben. 


Einleitung 3 
Die Tastatur der CPCs 


Unglücklicherweise sind die Bezeichnungen bestimmter Tasten 
der drei CPCs nicht einheitlich. Wann immer in diesem Buch 
von der Taste RETURN gesprochen wird (bezieht sich auf den 
6128), so ist auf dem 664 und dem 464 die große ENTER-Taste 
im Haupt-Tastaturblock zu benutzen. 
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Tricks zu BASI 


TEIL 1 


Tips & Tricks zu BASIC 
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1. Sortierverfahren 


Warum beschäftigen wir uns mit diesem Thema? 


Handelt es sich dabei doch um Programme, die relativ unan- 
schaulich sind, und deren Nutzen fragwürdig ist. 


Besonders interessant ist die Untersuchung von Sortieralgo- 
rithmen in bezug auf die dabei erreichten Geschwindigkeiten. 
Ein Großteil der von Computern verbrauchten Rechenzeiten 
wird auf das Sortieren verwendet. Kaum ein Anwenderpro- 
gramm kommt, auch schon im kleineren Rahmen, ohne eine 
Sortierfunktion aus. Nicht grundlos ist man ständig auf der 
Suche nach besseren, d.h. schnelleren Sortierverfahren. 


Ursprünglich sollte dieses Kapitel recht kurz werden. Bei der 
intensiveren Beschäftigung mit dem Thema erwies es sich jedoch 
als so interessant, daß wir etwas ausführlicher darauf eingehen 
werden. 


Besonders Sortieralgorithmen sind oft trickreiche Verfahren, 
deren Programmierung nur wenige Zeilen in Anspruch nimmt. 
Gerade bei den einfacheren Programmen von weniger als 10 
Zeilen ist erstaunlich, welch große Leistungsunterschiede auf- 
treten können. Die Schwierigkeit ist also nicht die, ein Pro- 
gramm in irgendeiner Sprache zu erstellen, sondern liegt viel- 
mehr darin, ein möglichst effektives Verfahren zum Sortieren 
von Daten zu entwickeln. 


Beim Sortieren bestimmen zwei Faktoren maßgeblich die Re- 
chenzeit. 


1. Die Anzahl der durchschnittlich auszuführenden 
Vergleiche 

2. Die Anzahl der durchschnittlich durchzuführenden 
Datenverschiebungen bzw. Datenvertauschungen. 


Diese beiden Faktoren, besonders die Anzahl der Vergleiche, gilt 
es möglichst klein zu halten. 
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Die Qualität eines Algorithmus bestimmt sich aus diesen Größen. 
Das Problem ist, daß die Sortierzeit nicht proportional zur 
Menge der zu sortierenden Daten ist. Das bedeutet: 


Wenn es eine Sekunde dauert, 10 Namen zu sortieren, verdoppelt 
sich die Zeit beim Sortieren von 20 Namen nicht notwendiger- 
weise. Vielmehr steigt die Zeit bei schlechten Algorithmen 
quadratisch an. Bei der doppelten Menge an Daten benötigt man 
die vierfache Zeit (4=2?), bei der lOfachen Menge die 100fache 
Zeit (100=10?). 


Machen wir uns das am einfachsten aller Sortierverfahren, dem 
sogenannten "Bubble Sort" klar. Bubble Sort erhält seinen Namen 
aufgrund der Eigenschaft, daß die größeren Elemente im Laufe 
des Sortierens, Luftblasen im Wasser gleich, nach oben steigen. 
Die größten steigen dabei am weitesten. Am Ende erhält man 
auf diese Weise ein sortiertes Feld. 


Dazu werden je zwei nebeneinanderliegende Elemente ver- 
glichen. Ist das Element mit dem kleineren Index größer, werden 
die beiden vertauscht, das größere Element steigt wie eine Luft- 
blase nach oben. Dann wird derselbe Schritt mit den nächsten 
beiden Elementen durchgeführt usw.. Dieses Verfahren endet 
erst dann, wenn das ganze Feld abgearbeitet ist. Nach diesem 
Durchgang befindet sich also das größte Element ganz oben, 
dort wo es hingehört. 


Hat unser Feld n Elemente, so wurden in diesem Durchgang n-I 
Vergleiche durchgeführt. 


Da sich jetzt das größte Element auf seinem Platz befindet, 
braucht es nicht mehr berücksichtigt zu werden. Wir tun also so, 
als ob das zu sortierende Feld nur noch n-1 Elemente hätte und 
beginnen von vorn. Nach dem zweiten Durchgang ist auch das 
zweitgrößte Element auf seinem Platz. Wir haben dafür n-2, also 
insgesamt (n-1)+{n-2) Vergleiche gebraucht. Die Größe des zu 
sortierenden Feldes wird wieder um 1 erniedrigt und von vorn 
begonnen, bis schließlich alles sortiert ist. Insgesamt haben wir 
damit 
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(n-1)Hn-2)Hn-3)+...+2+2=n*(K-1)/2 


Vergleiche durchführen müssen. Für n=10 benötigt man 45 
Vergleiche, für n=100 (das 10fache) schon 4950, also mehr als 
das 100fache. Die Sortierzeit steigt quadratisch! 

Bei allen folgenden Programmen bestehen folgende Vorgaben: 


1. Das zu sortierende Feld befindet sich in a(anz). 


2. Der maximale Feldindex ist in "anz" gespeichert. 
Damit ist die Anzahl der zu sortierenden Elemente 
anz+l, da auch unter Index 0 ein Element ge- 
speichert ist. 


3. Nach dem Sortiervorgang befindet sich das sortierte 
Feld wieder in a(anz). 


4, Alle Variablen, die nicht durch "$" oder "!" gekenn- 
zeichnet sind, sind Integervariablen. Das geschieht 
aus Zeitgründen. 


Hier folgt nun das Grundprogramm, das die nötigen Vorberei- 
tungen trifft. 


Ti 


18 
20 
38 
48 
58 
68 
78 
80 
ere 
978 
TH 
188 
118 
120 
150 
148 
150 
168 
170 
188 
190 


Tri BASI 


. 


Sortieren 

DEFINT a-z:DEFREAL t 

RANDOMIZE TIME 

aus=8: ’Flag fuer Ausgabe des Sortiervorgangs 

auga=8: ‘Kanalnummer fuer Ausgabe 

anz=20: anz=anz-1: 'Groesse des Feldes 

DIM a(anz+1),b(anz),1(28) ,r (20) 

FOR i=B8 TO anz:a(i)=INT(188*RND) :b(i)=ali):NEXT: 'zu sorti 
ndes Feld erzeugen 
READ j$:IF j$="#" THEN END ELSE j=VAL(j$)=:PRINT j,:IF aus 
EN PRINT: "Programmnummern lesen 

FOR i=8 TO anz:a(i)=b(i):NEXT:t=TIME 

ON j GOSUB 290,300,400,509,600,790,800,700,1059,1208 
PRINT#auga, (TIME-t) /308 

G0TO 98: ° Endekennzeichen 

DATA 1,2,3,4,5,6,7,8,9,18: 'Auszufuerhrende Programme 
DATA # 

REM SUB fuer Ausgabe des Sortiervorgangs 

FOR n=8 TO anz:PRINT #auga,USING "##";a(n);:PRINT #auga, 
"3:NEXT 

PRINT#auga 
RETURN 
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208 REM Bubblesort 

21@ FOR i=anz TO 1 STEP -1 

228 FOR j=1 TOi 

238 IF a(j-1i)>a(j) THEN s=satlj-i):alj-1I)=salj):alj)=s 
240 IF aus THEN GOSUB 178 

258 NEXT j,i 

268 RETURN 


Die äußere Schleife verkleinert das zu sortierende Feld bei 
jedem Durchlauf um eins. In der inneren Schleife werden alle 
Elemente des Restfeldes paarweise miteinander verglichen und 
evtl. vertauscht. 


Um richtige Zeitwerte zu erhalten, muß noch Zeile 240 aus dem 
Programm entfernt werden. Sie dient zur Ausgabe des Feldes 
nach jedem Vergleich. Die Ausgabe erfolgt, wenn Sie die 
Variable auf -1 setzen. So können Sie genau die Abläufe beim 
Sortieren verfolgen. 


Beschäftigen Sie sich noch mit folgenden Erweiterungen: 


Bauen Sie einen Zähler für die Anzahl der Vergleiche und einen 
zweiten für die Anzahl der Vertauschungen ein. Betrachten Sie 
die erhaltenen Werte im Zusammenhang mit der Zeit und mit 
den theoretischen Werten. Schätzen Sie ab, wie groß der Anteil 
der Vertauschungen am Gesamtzeitverbrauch ist (siehe auch 
Kapitel: Beschleunigen von BASIC-Programmen). 


Bubble Sort ist ein schlechtes Sortierverfahren! 
Doch gerade an diesem Beispiel läßt sich zeigen, durch welch 


kleine Änderungen ein Algorithmus oft bedeutend verbessert 
werden kann. 
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Eine Schwäche von Bubble Sort ist, daß es auch noch sortiert, 
wenn alles schon am richtigen Platz ist. Das können wir aber 
einfach feststellen. Findet eine Vertauschung statt, setzen wir 
ein Flag. Wenn das Flag am Ende eines Durchgangs noch nicht 
gesetzt ist, also keine Vertauschung stattgefunden hat, sind wir 
fertig. 


Prüfen Sie anhand von Zeitmessungen, Vergleichs- und Vertau- 
schungszählungen, wieviel diese Verbesserung durchschnittlich 
beträgt. 


Die Idee mit dem Flag läßt sich noch weiter ausbauen. Anstatt 
das Flag einfach zu setzen, speichern wir den Index der Ver- 
tauschung ab. 

Nach einem Durchlauf enthält das Flag dann den Index der letz- 
ten Vertauschung. Alle Elemente mit höherem Index sind dann 
bereits richtig sortiert, wir brauchen also nur noch bis zu diesem 
Index das Feld zu durchlaufen. 


38@ REM erweitertes Bubblesort 

318 FOR i=anz TO 1 STEP -1 

328 max j=8 

3538 FOR j=1 TOi 

348 IF a(j-1)>at(j) THEN s=a(j-i):alj-1i)=alj)sa(j)=s:maxj=j 
358 IF aus THEN GOSUB 178 

568 NEXT j 

378 IF maxj=B THEN RETURN ELSE i=maxj 

3880 NEXT i 

398 RETURN 


Stellen Sie auch hier wieder die Verbesserungen mit den er- 
wähnten Methoden gegenüber den alten Verfahren fest. 


Versuchen Sie noch eine "Bubbleversion" zu schreiben, in der 
abwechselnd "nach oben gebubbelt wird", d.h. daß das größte 
Element nach oben steigt, und "nach unten gebubbelt wird", also 
das kleinste Element nach unten fällt. Benutzen Sie zwei Zeiger, 
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die das noch nicht sortierte Feld jeweils begrenzen. Untersuchen 
Sie dieses Verfahren auf seine Leistungsfähigkeit. 


Damit genug zu Bubble Sort. Nun folgen noch einige einfache 
Sortieralgorithmen, die sich jedoch teilweise beträchtlich unter- 
scheiden. Führen Sie vergleichende Tests der einzelnen Algorith- 
men durch. 


Um am Anfang das Verfahren besser verstehen zu können, ist in 
jedem Programm wieder die Ausgabeoption vorhanden. 

Für die Durchführung der Geschwindigkeitsuntersuchungen soll- 
ten Sie jeweils diese Zeile löschen. 


Maxsort 


Maxsort durchsucht jeweils das noch nicht sortierte Feld nach 
dem größten Element. Wird ein Element, das größer ist, also das 
am Feldende gespeicherte, gefunden, werden die beiden ver- 
tauscht. Nach jedem Durchgang wird das Restfeld um eins ver- 
kleinert. 


408 REM Maxsort 

4108 FOR i=anz TO 1 STEP -1 

428 FOR j=B TO i-i1 

438 IF atj)>a(i) THEN s=alj):alj)=ali):ali)-s 
448 IF aus THEN GOSUB 178 

4508 NEXT j,i 

468 RETURN 


Straightsort oder das Sortieren nach Auswahl 


Dieses Verfahren ist prinzipiell ein verbessertes Maxsortverfah- 
ren. Die Verbesserung dabei ist, daß nicht automatisch ver- 
tauscht wird, wenn ein größeres Element gefunden wurde. Statt- 
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dessen wird erst im Restfeld das Maximum gefunden und dann 
vertauscht. Die Anzahl der Vergleiche ist gleich, die der Ver- 
tauschungen geringer. 


s@8 REM Straight 

Ss18 FOR i=anz TO 1 STEP -1:m=8 
52B FOR j=B TOD i 

5358 IF atj)>m THEN msa(j):k=j 
548 NEXT 

558 asa(li)sali)=salk):alk)=a 
560 IF aus THEN GOSUB 178 

57B NEXT 

588 RETURN 


Insertsort oder Sortieren durch Einfügen 


Insertsort beruht auf einer Methode, die jeder von uns kennt. 
Beim Kartenspielen sortieren wir jede neue Karte ein, in dem 
wir sie zwischen die bereits vorhandenen einfügen. Genauso 
funktioniert das Insertsortverfahren: 

Die neue Karte wird als größte Karte vorläufig einsortiert. Dann 
wird sie mit ihren Nachbarn verglichen und, wenn sie kleiner 
ist, vertauscht. Es wird also mit 2 Elementen angefangen, ein 
immer größeres sortiertes Feld aufzubauen. 


608 REM Insertsort 

618 FOR i=1 TOD anz 

628 FOR j=i TO 1 STEP -i 

638 IF atj)>=a(j-1) THEN 678 
640 s=a(j-I):satlj-1I)=salj):a(lj)=s 
658 IF aus THEN GOSUB 178 

660 NEXT j 

678 NEXT i 

688 RETURN 
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Da eine Verschiebung schneller ist als eine Vertauschung, kann 
Insertsort ähnlich wie Maxsort verbessert werden: 

Zuerst wird die Stelle ermittelt, an die das neu einzusortierende 
Element gehört. Dann werden alle größeren Elemente ver- 
schoben und schließlich das Element auf seinen Platz gesetzt. 


788 REM verbessertes Insertsort 

718 FOR i=1 TO anz 

728 a=a(i) 

758 FOR j=i-1 TO B STEP -i 

748 IF a<a(j) THEN NEXT j 

758 FOR k=i TO j+2 STEP -i:a(k)=a(k-1):NEXT k 
768 alj+i1)=a 

778 IF aus THEN GOSUB 178 

788 NEXT i 

798 RETURN 


Doch auch diese Version kann noch verändert werden. Das Ver- 
schieben des Feldes kann bei kleinen Feldern noch schneller 
ausgeführt werden als bei der letzten Version durch eine Extra- 
schleife. 


808 REM 3. Version Insertsort 
818 FOR i=1 TOD anz 

828 asatli):j-i-i 

830 IF a>=atj) THEN 8648 

840 atj+1)=alj):j=j-i 

858 IF j>=B THEN 838 

BAB alj+ti)=a 

878 IF aus THEN GOSUB 178 
888 NEXT 

898 RETURN 
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Binary Sort = Binary Surch mit Insert Sort 


Beim letzten Programm wurde ein Großteil der Zeit darauf ver- 
wandt, den Platz eines neuen Elementes in einer schon sortierten 
Liste zu finden. Der Zeitaufwand für diese Suche kann mit 
Hilfe von Binary Surch beträchtlich verringert werden. Beim 
einfachen Insertsort wurde schrittweise mit jedem Element 
verglichen. Binary Sort dagegen ist ein "intelligentes" Suchver- 
fahren. 

Nehmen Sie an, Sie sollen durch Fragen eine Zahl zwischen 1 
und 128 erfahren. Nach der "Insertsort Methode" würde man bei 
diesem Beispiel so fragen: 


Ist die Zahl 128? 
Nein! 
Ist die Zahl 127? 
Nein! 
Ist die Zahl 126? 


Effektiver währe es zu fragen: 


Ist die Zahl größer, kleiner oder gleich 64? 
Größer als 64! 


Die nächste Frage lautet dann: 


Ist die Zahl größer, kleiner oder gleich 96? 
Kleiner als 96! 


Dann: 


Ist die Zahl größer, kleiner oder gleich 84? 
Kleiner als 84! 


Das Prinzip dieser Abfragen ist gewissermaßen ein "Umzingeln" 
bzw. "Einkreisen" der gesuchten Zahl. Durch das systematische 
Fragen wird die Anzahl der möglichen Antworten begrenzt. 
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Eine ähnliche Methode des Fragens wird bei einer bekannten 
Fernsehsendung oft beispielhaft vorgeführt. 


Frage: "Ist der Kandidat weiblichen oder männlichen 
Geschlechts?" 


Mögliche Antworten im Normalfall: männlich bzw. 
weiblich. 


Hierbei hat man also nur zwei mögliche Antworten. Wichtiger 
aber ist, daß der zu erfragende Möglichkeitsbereich sich durch 
die Anwort auf diese Frage stark reduziert. 


Das Intervall, in dem sich die Zahl befinden kann, wird durch 
jede Frage halbiert. Die zu findende Zahl sei 30. Die Intervalle 
nach jeder Frage sind dann: 


Frage Antwort Intervall 
>, < oder =64 <64 1-63 

>, < oder =32 <32 1-31 

>, < oder =16 >16 17-31 

>, < oder =24 >24 25-31 

>, < oder =28 >28 

>, < oder =30 =30 gefunden!!! 


6 Fragen (Vergleiche) waren nötig, um die Zahl zu finden. Nach 
der alten Methode wären 98 Vergleiche notwendig gewesen. Die 
maximale Zahl der nötigen Vergleiche bei n Elementen mit 
Binary Surch ist proportional zu In, 2 (In,=Logarithmus zur Ba- 
sis 2). 


Der Name des Verfahrens ergibt sich aus der Tatsache, daß das 
in Frage kommende Intervall jedesmal halbiert wird. Aus diesem 
Grund wird auch der Logarithmus zur Basis 2 genommen. Die 
Ersparnisse sind bei großen Listen enorm. 

Die Position eines Elementes, das in ein Feld mit 60 Millionen 
Elementen (Einwohnerzahl der BRD) einsortiert werden soll, 
kann mit 26 Vergleichen ermittelt werden. Schauen Sie sich das 
Binary Sort Programm genau an, und simulieren Sie es im 
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Zweifelsfalle einmal per Hand (spielen Sie Computer), damit 
Ihnen die Arbeitsweise des Algorithmus klar wird. 


Aufgrund der etwas komplizierten Struktur des Programms, 
macht sich der Geschwindigkeitsvorteil gegen über Insertsort 
erst bei Feldgrößen von ca. 100 und mehr Elementen bemerkbar. 


900 REM Binary Sort 

918 FOR i=1 TO anz 

920 IF a(i)>ati-1) THEN 1808 

938 1=-1:r=-i+ti 

948 h=INT ((1+r)/2) 

9508 IF ati)>ath) THEN 1=h ELSE r=h 
968 IF r>1+1 THEN 948 

978 a=sati):FOR j=i TO r+1 STEP -1:a(j)=alj-1) NEXT 
980 alr)=a 

998 IF aus THEN GOSUB 178 

1888 NEXT 

1818 RETURN 


Shellsort 


Der Shellsort Algorithmus trägt den Namen seines Erfinders. 
D.L. Shell, der den Algorithmus in den 50er Jahren entwickelte. 
Interessanterweise handelt es sich bei diesem Verfahren prinzi- 
piell um Bubblesort mit dem leichten, aber wichtigen Unter- 
schied, daß das zu sortierende Feld in kleinere Unterfelder auf- 
gespalten wird, die sortiert werden und nach und nach schließ- 
lich das gesamte Feld sortieren. 


Die Idee des Verfahrens ist, daß das Feld zunächst grob sortiert 
wird. Nehmen wir als Beispiel ein Feld mit 16 Elementen. Für 
die erste Grobsortierung werden jeweils das Ite und das 9te, das 
2te und 10te, 3te und Ilte usw. Element verglichen und bei 
Bedarf vertauscht. Damit ist die erste Grobsortierung erreicht. 
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Bei diesem Durchlauf wurden Elemente mit dem Abstand 8 
verglichen. 


Beim nächsten Durchlauf wird der Vergleichsabstand auf 4 hal- 
biert. Nun werden die Unterfelder sortiert, die sich aus den 
Elementen mit dem Abstand vier ergeben, also das Unterfeld 
aus dem Iten, Sten, 9ten und l3ten Element, das aus dem 2ten, 
6ten, 1Oten und l4ten Element usw.. Diese neuen Unterfelder 
werden jetzt sortiert, wobei prinzipiell das Insertsortverfahren 
angewendet wird. Es wird also das Ite mit dem Sten verglichen 
und evtl. vertauscht, dann das 9te in das Ite und Ste einsortiert, 
und schließlich das 13te zwischen Item, S5tem und 9tem einsor- 
tiert. Genauso wird mit den anderen Unterfeldern verfahren. 
Nun wird wieder der Vergleichsabstand halbiert, und der Vor- 
gang beginnt von neuem. 


Der Vergleichsabstand wird solange halbiert, bis er eins beträgt. 
Dann wird der letzte Sortierdurchlauf mit dem gesamten Feld 
durchgeführt. 


Das Shellsortverfahren ist ein sehr interessanter Algorithmus, der 
allen bisher besprochenen weit überlegen ist, wenn Felder mit 
mehr als 20 Elementen sortiert werden. 


10858 REM Shellsort 

1848 FOR m=anz-i TO 1 STEP -1 
1878 m=INT((m+1)/2) 

1888 FOR j=B TO anz-m 

1298 i>j 

1188 IF ati)<=ali+rm) THEN 1158 
1118 s=ali):ali)=a(litm):alitm)=s 
1128 IF aus THEN GOSUB 178 

1138 i=i-m 

1142 IF i>=B THEN 1188 ELSE 1150 
1150 NEXT j,m 

11688 RETURN 
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Quicksort 


Eine der besten bekannten Sortierverfahren ist Quicksort. Für 
Felder mit mehr als 50 Elementen ist es den bisher vorgestellten 
Verfahren überlegen. die Idee für das Quicksortverfahren ist 
folgende: 


Das zu sortierende Feld wird in zwei Hälften geteilt. Das Ele- 
ment zwischen beiden Hälften dient als Vergleichselement. Nun 
werden aus der unteren Hälfte alle Elemente, die größer sind als 
das Vergleichselement, vertauscht. Unter Umständen wird auch 
mit dem Vergleichselement selbst vertauscht. Diese erste Grob- 
sortierung ist ähnlich einem erweiterten Shellsortverfahren. 


Nach dem ersten Durchlauf wird nun mit jeder der beiden 
Hälften das Verfahren von neuem begonnen. D.h., daß das Ver- 
fahren rekursiv ist, also sich selbst wieder aufruft. Um diese 
rekursive Struktur auch im BASIC zu ermöglichen, müssen die 
wichtigsten Variablen vor dem Wiederaufruf abgespeichert 
werden, da sie sonst verloren gehen würden. Dazu dienen die 
Felder I(sp) und r(sp). 


1288 
1218 
1220 
1238 
1248 
1250 
1268 
1270 
1288 
1298 
1500 
1510 
1328 
13350 
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REM Quicksort 
sp=B:1(sp)=B:r (sp) =anz 

1=1 (sp) :r=r (sp) :sp=sp-i 
i=1:j=r:vv=a(INT((1+r)/2)) 

WHILE ali)<vv :i=i+ti1:WEND 

WHILE a(j)>vv 2 j=j-1:WEND 

IF i>j THEN 1388 
s=ali):atli)=salj):a(j)=s:IF aus THEN GOSUB 178 
i=si+1:j=j-1 

IF i<=j THEN 1248 

IF ifr THEN sp=sp+1:1(sp)=i:r (sp)=r 
r=j:IF 1<r THEN 12308 

IF sp>=8 THEN 1228 

RETURN 
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2. 3-D-Grafik 
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107 } 


48 DEF FNf (x) =SQOR (ABS ((16-x#x-2*zZ)))+1/SOR (x#x+z#2+0.1) 
58 ap=34 
88 DATA -4,4,-2,6,-4,4 


Eine der schönsten und interessantesten Anwendungen der Com- 
putergrafik bzw. des Computers überhaupt ist das Erstellen von 
dreidimensionalen Bildern. Die komplette Theorie der 3-D- 
Grafik ist sehr komplex und in den letzten Jahren im Zuge der 
Entwicklung von CAD Systemen (Computer Aided Design) weit 
vorangetrieben worden. Mit Hilfe der letzten Rechnergeneratio- 
nen ist es sogar möglich, Filme, z.B besondere Sience Fiction- 
Szenen, vollständig von Computern erzeugen zu lassen. 


In solchen Dimensionen können wir uns hier natÜrlich nicht be- 
wegen. Die Schneider Rechner bieten allerdings in ihrer Klasse 
unerreichte Grafikfähigkeiten. Die im MODE 2 erreichte Auflö- 
sung von 640*200 Punkten bietet ideale Voraussetzungen für die 
Darstellung dreidimensionaler Funktionen. 


Beschäftigen wir uns zunächst ein wenig mit der Theorie, d.h., 
mit dem Begriff der Funktion. 
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Eine Funktion ist eine Abbildung. Dabei wird, zumindest im 
Zweidimensionalen, jeder Wert aus einer bestimmten Zahlen- 
menge (dem Definitionsbereich) auf einen - und nur einen - 
Wert aus einer zweiten Zahlenmenge (dem Wertebereich) abge- 
bildet, den man als Funktionswert bezeichnet. Den Zusammen- 
hang dieser beiden Mengen bezeichnet man als die Funktion. 


Man kann also eine Funktion als eine Wertetabelle auffassen, in 
der jedem Wert der Definitionsmenge ein Funktionswert zuge- 
ordnet ist. Die so erhaltenen Zahlenpaare kann man grafisch 
darstellen, indem man die Werte als Abschnitte auf zwei senk- 
recht zueinanderstehenden Achsen deutet, und den Schnittpunkt 
der horizontalen bzw. der vertikalen Linie durch die auf den 
Achsen abgetragenen Strecke als Punkt einzeichnet. Die beiden 
Wertepaare bezeichnet man dann als die Koordinaten des 
Punktes. Betrachten wir ein Beispiel folgender Funktion: 


Punkt (Wert x, Wert y) 
Wert y „un. 
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Jede beliebigen Kommazahl wird auf den Wert, den man erhält, 
indem man die Kommastellen der Zahl wegläßt, abgebildet. 


Einige Wertepaare dieser Funktionen sind: 





x Y 
1,5 
3,7593 3 
1000,379 1000 
2 2 
-1,5 1 


Wir wollen diese Funktionen durch den Rechner zeichnen lassen. 


Zunächst stellt sich damit die Aufgabe, die Abbildungsvorschrift 
in eine für den Recher "verständliche", d.h. mathematische Form 
umzuwandeln. Bei unserem Beispiel ist dies einfach. Die oben- 
genannte Funktion wird durch die INT-Funktion des Rechners 
dargestellt. 


Die Variable für die Werte des Definitionsbereiches ist X. Die 
Variable für die des Wertebereiches jedoch Y. Die Funktion soll 
für den Bereich von -5 bis 15 dargestellt werden. Ein erster 
Versuch könnte so aussehen: 


10 MODE 2 

20 FOR X=-5 TO 15 
30 Y=INT(X) 

40 PLOT X,4 

50 NEXT 


Der gewünschte Effekt kommt jedoch nicht zustande. Wir müs- 
sen unser Programm noch an das Bildschirmformat des Rechners 
anpassen. Die Breite des Bildschirmes (=X-Richtung) beträgt 640 
Punkte. Die Höhe (=Y-Richtung) 200 Punkte, die jedoch mit 
den Koordinaten von O0 bis 400 bezeichnet werden und erst 
intern halbiert werden. 
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Das eben erhaltene Bild ist eine Miniaturdarstellung des ge- 
wünschten Bildes. Es muß noch entsprechend in die X- und Y- 
Richtung gestreckt werden. 


Es werden also zwei Maßstabsfaktoren eingeführt, die die realen 
Werte von x und y so stauchen oder strecken, daß sie nach 
Möglichkeit den gesamten Bildschirm ausfüllen. 


Die Funktion soll im Bereich von XOBG=15 bis XUNTG=-5 
dargestellt werden. Der gesamte darzustellende Bereich hat dann 
die Größe XOBG-XUNTG=15-(-5)=20. Da 640 Punkte zur Ver- 
fügung stehen, muß die 20 auf 640 gestreckt werden, d.h., daß 
die X-Werte mit 640/20=32 multipliziert werden müssen. 


10 MODE 2 

20 XUNTG=-5:X0BG=15 

30 MASX=640/(X0BG-XUNTG) 

40 FOR X=XUNTG TO XOBG STEP 1/MASX 
50 Y=INTCX) 

60 PLOT X*MASX,Y 

70 NEXT X 


’ Die STEP-Aänweisung bewirkt, daß auch für jeden der 640 zei- 
chenbaren X-Werte ein Punkt gezeichnet wird. 


Das erhaltene Bild ist noch ein wenig "platt", weil wir die Y- 
Achsenwerte noch nicht gestreckt haben. 


Wie bei der X-Achse müssen wir beim Strecken der Y-Achse 
wissen, zwischen welcher Ober- und Untergrenze sie dargestellt 
werden soll. Dies ist oft nicht von vornherein feststellbar, wenn 
man eine unbekannte Funktion zeichnen läßt. Entweder man 
probiert ein bißchen aus, oder man macht zuerst einen Testlauf, 
bei dem der maximale und der minimale Y-Wert ermittelt 
werden. Dann nimmt man diese Werte als Grenzen und zeichnet 
jetzt erst den Graphen. 


Aufgrund der Eigenschaften unserer Funktion ist jedoch einfach 
zu erkennen, daß Y sich zwischen -5 und 15 bewegen wird. 
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Fügen Sie also noch folgende Zeilen hinzu bzw. ändern Sie die 
alten. 


21 YUNTG=-5:YOBG=15 
31 MASY=400/(YOBG-YUNTG) 


Zeile 60 ändern Sie zu PLOT X*MASX,Y*MASY 


Trotz der Einführung der Maßstabsfaktoren (MAS) haben wir 
noch nicht erreicht, daß der gesamte Bildschirm von der Funk- 
tion "benutzt" wird. Es ist notwendig, anhand der X- und Y- 
Ober- bzw. Untergrenzen den Bildschirmnullpunkt entsprechend 
zu verlegen. Normalerweise liegt der Bildschirmnullpunkt in der 
unteren linken Ecke. Prinzipiell könnten wir den Nullpunkt 
(engl. Origin) mit dem dafür vorgesehenen ORIGIN-Befehl ver- 
legen. In unserem Fall wäre dies mit Zeile 


35 ORIGIN 160,100 


möglich. Dieses Verfahren, das natürlich das einfachste ist, 
funktioniert allerdings nur unter der Voraussetzung, daß sich 
der Nullpunkt auch tatsächlich auf bzw. zumindest in der Nähe 
des realen Bildschirmes befindet. Sollte aber z.B. nur der 
Abschnitt der Funktion von 2000 bis 2040 dargestellt werden, 
versagt diese Methode, da ein ORIGIN -32000,-20000 einen 
Overflow ergibt. Die entsprechenden Berechnungen müssen also 
vom Programm durchgeführt werden. Wir müssen also den Bild- 
schirm um den Wert von XUNTG in X-Richtung und von 
ZUNTG in Y-Richtung "verschieben". Die folgenden Änderun- 
gen der Zeile 60 bewirken dies (löschen Sie wieder Zeile 35 und 
geben Sie einmal ORIGIN 0,0 ein): 


60 PLOT (X-XUNT)*MASX,(Y-YUNTG)*MASY 
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Fügen wir noch folgende Zeilen hinzu, so erhalten wir außer- 
dem noch die Koordinatenachsen auf dem Bildschirm, falls diese 
auf ihm liegen. 


35 IF XUNTG*XOBG>0 THEN 37 
36 MOVE (X-XUNTG)*MASX,0:DRAW (X-XUNTG)*MASX,400 
37 IF YUNTG*YOBG>O THEN 40 
38 MOVE 0,(Y-YUNTG)*MASY:DRAW 640, (Y-YUNTG)*MASY 


Die eben betrachtete Funktion INT(X) hat eine "unschöne" Ei- 
genschaft, die in der Mathematik als "Unstetigkeit" bezeichnet 
wird. Das bedeutet vereinfacht gesagt, daß im Verlauf des Gra- 
phen Sprünge sind oder andersherum gesagt, er nicht glatt ver- 
läuft. Im folgenden werden wir nur noch stetige Funktionen 
betrachten, da sie einige für die Programmierung hervorragende 
Eigenschaften in sich vereinigen. Eine der einfachsten Funktio- 
nen ist die, die den X-Wert auf sich selbst abbildet. Wie man 
leicht nachprüfen kann, ergibt diese Funktion als Bild eine 
Gerade, die eine Diagonale zu den Achsen bildet. Als Beispiel 
für eine einfache stetige Funktion betrachten wir nun eine qua- 
dratische, deren einfachste Form y=x? ist. 

Zunächst definieren wir die Funktion der Einfachheit halber mit 
dem Befehl DEF FN: 


15 DEF FNY(X)=X”2 
Änderung: 
50 Y=FNY(X) 


Da eine stetige Funktion immer recht "gemütlich", d.h., mit nur 
langsamen Veränderungen in einem ausreichend kurzen Stück 
der X-Achse verläuft, ist es möglich, auf das Zeichnen jedes 
einzelnen Punktes zu verzichten. Vielmehr können in gewissen 
Abständen Punkte gezeichnet und diese dann durch Geraden 
verbunden werden. Je nach Abstand der zu verbindenden 
Punkte, folgt dadurch ein Zeitgewinn vom 10fachen zum 
50fachen. Gerade diese Tatsache ist es, die das am Ende dieses 
Kapitels stehende 3-D-Netzgrafikprogramm den herkömmlichen 
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so überlegen macht, die alle Punkte berechnen. Folgende Änder- 
ungen sind daher im Programm notwendig: 


16 PUAB=10:REM Punktabstand 
Zeile 40 in Zeile 42 umnumerieren. 


40 MOVE 0,(FNY(XUNTG)-YUNTG)*MASY 
42 FOR X=XUNTG TO XOBG STEP 1/MASX*PUAB 


Änderung von Zeile 60 zu: 
DRAW (X-XUNTG)*MASX,(Y-YUNTG)+MASY 


Außerdem sollen die Y-Grenzen wegen der nun neuen Funktion 
zu -10 und 250 (0.4.) geändert werden. 


Probieren Sie verschiedene andere quadratische Funktionen aus: 


Eunktion XUNTG XOBG _YUNTG _YOBG 
x”-50 


-10 15 -150 200 
x2+20 -5 10 -10 90 
(X-5)? -5 15 -10 100 
(X+5)? -10 10 -10 250 
(X-5)2-50 -5 15 -60 60 


Wie wir gesehen haben, ist die Darstellung zweidimensionaler 
Funktionen relativ einfach möglich. Der Graph einer zweidi- 
mensionalen Funktion liegt in einer Ebene und ist daher auch 
leicht auf die Bildschirmebene zu übertragen. Bei einer dreidi- 
mensionalen Funktion ist diese direkte Übertragung nicht 
möglich, da auf der Bildschirmebene nur zwei Dimensionen zur 
Verfügung stehen. 


Bei einer dreidimensionalen Abbildung wird jedem Wertepaar 
des Definitionsbereiches ein Wert des Wertebereiches zugeordnet. 
Man könnte sich z.B. vorstellen, daß die Definitionsebene ein 
Tisch ist, dem zu jedem Punkt des Tisches eine bestimmte Höhe 
von der Tischplatte aus zugeordnet wird. Um ein wirklich drei- 
dimensionales Bild der Funktion zu erhalten, müßte aus einem 
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formbaren Material, wie z.B. Knetgummi, die Fläche, die aus 
allen Punkten gebildet wird, nachgebaut werden. 


Die Aufgabe für den Programmierer ist es, diese dreidimensio- 
nale Figur in einer Ebene, also mit zwei Dimensionen, abzubil- 
den. Eine wirklichkeitsnahe Abbildung müßte dabei darauf ach- 
ten, daß weiter entfernt liegende Strecken kleiner erscheinen 
und umgekehrt, dem Betrachter nahe liegende größer abgebildet 
werden. Durch diesen Effekt würde der Eindruck einer wirkli- 
chen Perspektive im Bild entstehen. 


Für unsere Zwecke, also der Darstellung von Funktionen, kön- 
nen wir jedoch diesen Effekt vernachlässigen. Stellen Sie sich 
vor, Sie würden zunächst in unserem Knetgummimodell, paralel 
zur vorderen Tischkante, mit einem Messer in jeweils gleichen 
Abständen Linien in die Oberfläche des Knetgummis hineinrit- 
zen. Aufgabe ist es, die erhaltenen Linien nun mit dem Compu- 
ter zu zeichnen. Die erste Linie, die über der vorderen Tisch- 
kante liegt, haben wir bereits mit dem alten Programm gezeich- 
net. 


Betrachten wir diese Funktion: 
DEF FNY(X)=X?2+ZX2 


wobei Z den Werten auf der dritten Achse entspricht. In unse- 
rem Modell ist sie die seitlich verlaufende Tischkante. 


Nehmen wir an, daß die zweite eingeritzte Linie durch den Wert 
-1 auf der Z-Achse verläuft oder anders ausgedrückt, den 
Abstand 1 nach hinten von der ersten Linie hat. Diese Linie 
wird nun gezeichnet, indem Z auf -1 gesetzt wird und dann die 
normale Schleife zum Zeichnen durchlaufen wird. Danach wird 
Z auf den Wert der nächsten Schnittlinie gesetzt usw. 


Zuerst numerieren Sie Zeile 40 in 41 um, die Zeile 15 enthält 
obige Funktionsdefinition. 


22 ZUNTG=-10:ZOBG=0 
40 FOR Z=ZOBG TO ZUNTG STEP-1 
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Ändern Sie Zeile 41 zu: 


41 MOVE 0,(FNYCXUNTG)-YUNTG)*MASY- Z*MASZ*MAZY 
70 NEXT 


Das so erhaltene Bild entspricht unserem Modell, wenn wir es 
frontal mit Augenhöhe=Tischplatte ansehen würden. Wir wollen 
jedoch einen beliebigen Blickwinkel wählen können. 


Bei der Standardperspektive betrachtet man unser Modell von 
rechts oben. Bei dieser Betrachtung verläuft die Z-Achse fast 
diagonal nach hinten rechts. Ein Punkt, der weit hinten auf der 
Z-Achse liegt, würde in der zweidimensionalen Darstellung in 
der rechten oberen Bildschirmecke abgebildet sein. Das bedeutet, 
daß die in der Realität weiter hinten gelegenen Punkte in einer 
zweidimensionalen Abbildung auf dem Bildschirm auf der X- 
bzw. Y-Bildschirmkoordinatenleiste nach rechts bzw. oben ver- 
schoben erscheinen. Je weiter der Punkt auf der Z-Achse ent- 
fernt ist, desto weiter ist auch die Verschiebung auf der 
Bildschirmkoordinatenachse. 
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Punkt (x;y;z) 


x*cos(Wz) 


Im Programm berücksichtigen wir dies so: 
Vorher muß noch Zeile 41 zu 

41 MOVE -Z*MASZ*MAZX, CFNYCXUNTG)-YUNTG)*MASY-Z*MASZ*MASY 
geändert werden. 


6 DEG 

25 WzZ=45:'Winkel der Z-Achse zur X-Achse 

26 MAZX=COS(WZ):MAZY=SINCWZ) 

32 MASZ=200/ (ZOBG-ZUNTG) 

60 DRAW (X-XUNTG)*MASX- Z*MASZ**MASX, (Y- YUNTG)*MASY - Z*MASZ*MAZY 
17 LINAB=10 
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Änderung: 
40 FOR Z=ZOBG TO ZUNTG STEP 1/MASZ*LINAB 


Ändern wir noch einige Zeilen für eine neue Funktion und 
numerieren das Programm neu, so erhalten wir: 
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18 DEG 

28 MODE 2 

38 DEF FNy(x)=x/SOR((1-x#x) "2+(2*2%x/300) "2+9.001) 
40 puab=28: REM Punktabstand 

59 linab=28 

68 xuntg=-2:xobg=2 

78 yuntg=-7:yobg=7 

88 zuntg=-I308: zobg=388 

98 wz=45: "Winkel der Z-Achse zur X-Achse 

188 mazx=C0S (wz) :zmazy=SIN (wz) 

118 masx=648/ (xobg-xuntg) 

128 masy=488/ (yobg-yuntg) 

138 masz=488/ (zobg-zuntg) 

148 IF xuntg*xobg>B THEN 168 

158 MOVE (-xuntg) *masx ,B:DRAW (-xuntg) #masx „488 
1548 IF yuntg*yobg>® THEN 188 

178 MOVE B,(y-yuntg)*masy:DRAW 64, (y-yuntg) *masy 
188 FOR z=zobg TO zuntg STEP-1/masz*#linab 

198 MOVE -z#masz*#mazx ,(FNy(xuntg) -yuntg) *masy-z*#masz#mazy 
208 FOR x=xuntg TO xobg STEP 1/masx*puab 

218 y=FNy(x) 

228 DRAW (x-xuntg) #masx-z*#masz #*#mazx ,„ (y-yuntg) #masy-z#masz*#mazy 
238 NEXT x,z 
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Dieses Programm erzeugt nun also 3-D-Liniengrafiken. Oftmals 
liefert diese Methode jedoch noch keine ausreichenden Bilder. 
Stellen Sie sich also noch einmal unser Knetgummimodell vor 
und ritzen Sie noch eine Reihe von Linien zusätzlich parallel zur 
seitlichen Tischkante (Z-Achse) ein. Damit ist die Oberfläche 
der Funktion mit einem Netz von Linien überzogen. 


Um dies auch zweidimensional abzubilden, könnte man einfach 
das Programm an das alte in fast gleicher Form anhängen, mit 
dem Unterschied, daß die Z-Schleife mit der X-Schleife ver- 
tauscht wird. (Probieren Sie es aus!) 


Dabei würde aber jeder Netzpunkt zweimal berechnet werden, 
was natürlich auch entsprechend mehr Zeit benötigt. Das fol- 
gende Programm erledigt beides auf einmal. Dazu werden die als 
letztes gezeichneten Netzpunkte abgespeichert und dann beim 
Zeichnen der nächsten Linien mit den dazugehörigen Punkten 
verbunden. Daraufhin werden die gerade berechneten Punkte 
anstelle der alten gespeichert. Auf diese Weise wird das kom- 
plette Netz gezeichnet. Im folgenden Abschnitt bringen wir das 
Programm und einige damit erzeugte Bilder. 


18 
28 
40 
58 
60 
78 
80 
98 


180 
118 
128 
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MEMORY &IFFF 
MODE 2 
DEF FN# (x) =x/SOR ( (1-x#x) "2+(2*2*x/300) "2+0.001) 
ap=>15 
DIM x (ap+i1),y(ap+i) 
READ xa,xe,ya,ye,za,ze 
DATA -2,2,-7,7,-300,500 
mx=400/ (xe-xa) 

my=400/ (ye-ya) 

mz=400/ (ze-za) 

DEG 


138 al=42-22/2 
148 as=22 


158 
168 


zx=C0S(al)”2 
xx=C0S (as) “2 


178 zy=SIN(al)”2 


188 
1978 
208 
210 
220 


xy=5IN(as) “2 

j3=B 

FOR z=ze TO za STEP -(ze-za)/ap 
i=8 

FOR x=xe TO xa STEP -(xe-xa)/ap 


238 y=FNf (x) 


248 
250 
268 


xk=12Q0+xx#mx#(x-xa)-zxtmz%* (zZ) 
yk=my* (y-ya)-zy%#tmz#(z)-xyi#mx#(x-xa) 
IF i=@8 THEN 288 


278 MOVE xk,yk:DRAW x (i),y(i) 


288 
298 
300 


isi+ti 
IF j=@ THEN 318 
MOVE xk,yk:DRAW x (i),y(i) 


318 x» (i)=xk 


328 
358 
348 
358 
368 


y(i)=yk 

NEXT x 

j=j+1 

NEXT z 

IF INKEY$="" THEN 3648 


Ti 


BASI 


Variablenliste: 


As: 
AL: 
AP: 


Winkel zwischen Waagerechte und X-Achse 
Winkel zwischen Waagerechte und Z-Achse 
Anzahl der Punkte auf der Netzlinie 
Zähler 

Zähler 

Maßstab Z 

Maßstab Y 

Maßstab X 

X-Koordinaten Bildschirm 
Projektionsfaktor X auf Y-Achse 
Projektionsfaktor X auf X-Achse 
X-Ende 

X-Anfang 

X-Wert 

Y-Koordinate 

Y-Ende 

Y-Anfang 

Y-Funktionswert 

Projektionsfaktor Z auf Y-Achse 
Projektionsfaktor Z auf X-Achse 
Z-Ende 

Z-Anfang 

Z-Wert 
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48 DEF FNf (x) =x/SQR((1-x*x) "2+(2*z2#x/300) "2+0.001) 
58 ap=23 

68 DIM x (ap+1) ,y(ap+i) 

78 READ xa,xe,ya,ye,za,ze 

88 DATA -2,2,-7,7,-380,300 





48 DEF FNf (x)=C0S(4xx#x+z#z2)#((xax+z#z) /(xRz+1.1)) HABSCSIN(I 
B*SQR (x*x))) 

5a ap=24 

88 DATA -4,4,-12,12,-4,4 
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3. BASIC-Programme benutzerfreundlich 
gestatlet 


3.1 Menuegenerator 


In vielen größeren Programmen kann dasselbe vom Benutzer mit 
Hilfe eines Menues gesteuert werden. In letzter Zeit zeichnet 
sich der Trend zu benutzerfreundlichen Programmen ab. Mit 
Sicherheit wird dieser Trend in Zukunft beibehalten, wenn nicht 
sogar verstärkt werden. 


Eine komfortable Menuesteuerung ist ein wichtiger Beitrag zur 
Benutzerfreundlichkeit. Anhand eines Menues kann der Anwen- 
der, wie im Restaurant auf der Speisekarte (menue: engl. Karte) 
auswählen, was er gerne essen möchte. In unserem Fall also das 
Auswählen einer Funktion des Programms. Da die Auswahl bei 
einer Karte mit zu vielen verschiedenen Gerichten äußerst 
schwerfallen kann, auf jeden Fall aber viel Zeit benötigt, sind 
gute Menuekarten übersichtlich und inhaltlich gegliedert. 


Ein Hauptmenue führt ins Untermenue, welches eventuell noch 
weiter aufgegliedert ist, bis man schließlich an dem gewünschten 
Punkt angelangt ist. Außerdem sollte ein gutes Menue alle nicht 
eindeutigen Bedienungsfunktionen mit anzeigen, z.B., wie das 
letzte oder nächste Menue erreicht werden kann. 


Da das Programmieren eines Menues immer notwendig sein 
wird, haben wir einen Menuegenerator geschrieben, der eine er- 
hebliche Zeitersparnis mit sich bringt. 


Mit einem minimalen Aufwand, nämlich durch das Ändern der 
DATA Zeilen, in denen die Menuepunkte stehen, kann das Pro- 
gramm universell eingesetzt werden. 


Das Programm selbst ist natürlich ohne das dazugehörige Haupt- 
programm, welches vom Menue aus gesteuert wird, wertlos. Das 
Hauptprogramm ist jeweils Ihr eigenes, mit dem Menue auszu- 
stattendes Programm. 
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Die Technik des Menuegenerators zeigt eine sehr interessante 
Einsatzmöglichkeit der Feldvariablen des BASIC. Ohne diese 
wäre es gar nicht möglich gewesen, ein solches Programm zu 
schreiben. Das Ziel war es, jedes Menue durch eine einzige 
Routine anzeigen zu lassen. Nachdem der Benutzer seine Wahl 
getroffen hat, soll die Routine automatisch den Weg ins neue 
Menue finden. 


Alle möglichen Menuepunkte sind dazu in einem Feld (m$) hin- 
tereinander gespeichert. Um innerhalb dieses Feldes die einzel- 
nen Menuepunkte in der notwendigen Reihenfolge festzuhalten, 
gibt es ein zweites Feld (md für Menue-DATA), in dem zu 
jedem Menue folgende Informationen gespeichert sind: 


- Die Nummer des nächsten Menues 

- Die Nummer des letzen Menues 

- Die Größe (Anzahl der Punkte) eines Menues 

- Die zuletzt beim jeweiligen Menue getroffene Wahl 


Die Variable mepo enthält die Nummer des aktuellen Menues. 
Damit enthält dann gleichzeitig m$(mepo) den Namen des Pro- 
grammteils, in dem man sich gerade befindet. 


md(mepo,gros) enthält die Anzahl der Punkte im aktuellen Me- 
nue, md(mepo,dflt) enthält den Punkt des Menues, der zuletzt 
ausgewählt wurde. 


In md(mepo,ruck) ist die Nummer des Menues gespeichert, das 
durch Drücken der DEL-Taste erreicht werden kann (also das 
jeweils letzte Menue). 


Schließlich ist noch die Nummer des jeweils nächsten Menues 
zum ersten Menuepunkt eines jeden Menues in md(mepo,nxt) 
gespeichert. md(mepo,nxt) hat aufgrund der entwickelten Daten- 
struktur noch eine andere Funktion. Einerseits kann damit, wie 
beschrieben, die Nummer des nächsten Menues gefunden 
werden, andererseits ist dieser Wert gleichzeitig die Nummer des 
ersten Menuepunktes des aktuellen Menues (siehe Zeilen 520- 
560). 
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Der wohl komplizierteste Teil des Programms ist die Schleife, 
die aus den DATA-Zeilen, in denen die Menuepunkte stehen, 
die oben beschriebenen Zeiger ermittelt und setzt. Die DATA 
Zeilen müssen dazu die einzelnen Menuepunkte enthalten, wobei 
jedes Menue vom anderen durch eine fortlaufende Nummer ge- 
trennt ist. Dabei wird nach der 0 das Hauptmenue angegeben, 
dann zu jedem Hauptmenuepunkt das dazugehörige Untermenue 
in der entsprechenden Reihenfolge. 


Die Untermenues zu den ersten Untermenues werden auf diesel- 
be Weise angeführt. Existiert nicht zu allen Auswahlpunkten 
eines Menues ein Untermenue, so muß das fehlende in der Nu- 
merierung übersprungen werden. 


Die Initialisierungsschleife (Zeilen 10100-10130) liest zunächst 
den nächsten Menuepunkt. Für jeden gelesenen Punkt wird der 
Rücksprungzeiger für das durch die Auswahl dieses Punktes 
erreichte Menue gesetzt, indem unter md(i,ruck) die Nummer 
des aktuellen Menues n gespeichert wird. Der Defaultwert (dflt), 
der den zuletzt gewählten Punkt des Menues enthält, wird hier 
erst einmal auf 1, also auf den jeweiligen ersten Punkt gesetzt. 
Dann wird festgestellt, ob alle Punkte eingelesen wurden. Am 
Ende der DATA Zeilen muß dafür ein "!" stehen. 


Sind alle Punkte eingelesen, so wird noch die Größe des letzten 
Menues ermittelt und die Initialisierungsschleife ist beendet. 


In Zeile 10120 wird geprüft, ob eine Nummer gelesen wurde. 
wenn nicht, wird sofort der nächste Menuepunkt in Zeile 10110 
gelesen. Wird festgestellt, daß eine Menuenummer gelesen 
wurde, so wird zuerst n mit dieser neuen Nummer gelesen. Der 
nächste Schritt erscheint etwas unlogisch. 


Als Nummer des nächsten auf das neue Menue folgenden 
Menues, wird der aktuelle Zähler der gelesenen Punkte gespei- 
chert. Überprüfen Sie, ob dieser Wert wirklich die Nummer des 
nächsten Menues darstellt. Schließlich wird noch die Größe des 
zuletzt gelesenen ermittelt. 
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Nach dem Durchlaufen der gesamten Initialisierungsschleife er- 
gibt sich schematisch folgendes Bild: 


Nachdem das Programm initialisiert wurde, kann es in jedem 
Programm benutzt werden. Der Aufruf der Menueausgabe- 
routine hat z.B. folgendes Format: 


1010 GOSUB 500:IF ein$=del$ THEN RETURN 
1020 ON wahl GOSUB _...Zeilennummer 


An den so angesprungenen Zeilennummern stehen nun wieder 
gleichartige Zeilen, wie in 1010 und 1020, die das nächste Un- 
termenue angeben usw. 
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18 REM menue 
28 MODE 2 
38 GOSUB 1888 : REM Init 
48 GOSUB 388 =: REM Hauptmenue 
5@ CLS:END 
68 REM Rahmen 
78 CLS:PRINT"Menuegenerator 
"3m$ (mepo) 
88 PRINT STRING$ (808,"-"); 
98 LOCATE 1,23:PRINT STRING$(88,"-"); 
188 PRINT"Druecken Sie >ENTER< fuer Auswahl des invers Dargest 
ellten" 
118 PRINT" oder >DEL< fuer ";exit$(-(mepo>B)-(mepo>1)) 


’ 

128 RETURN 

138 REM Menue Aufbauen 

148 GOSUB #8 :REM Rahmen 

158 wahl=md (mepo,dflt) 

16® LOCATE 1,5 

178 FOR i=1 TO md(mepo,gros):IF i=wahl THEN PAPER 1:PEN 8 


188 PRINT i;:PAPER B:PEN 1:PRINT" - ";:IF i=wahl THEN PAPER 1: 
PEN ® 

198 PRINT m$(i+md (mepo,nxt)-1):PAPER B:PEN 1 

208 NEXT 


218 PRINT:PRINT:PRINT:PRINT"Ihre Wahl :";5:PAPER 1:PEN B:PRINT 
wahl; PAPER B: PEN 1:L0CATE POS (#8) -3,VPOS (#9) 

228 ein$=INKEY$: IF ein$="" THEN 228 

2380 IF ein$=del$ THEN RETURN 

248 IF ein$=CHR$ (13) THEN md (mepo,dflt)=wahl :mepo=md (mepo,nxt) 
+wahl-1:RETURN 

258 IF ein$=CHR$ (241) OR ein$=CHR$ (242) OR ein$=CHR$ (32) THEN 
wahl=wahl+1+(wahl=md (mepo,gros) ) #*md (mepo,gros) :GOTO 298 

260 IF ein$=CHR$ (248) OR ein$=CHR$ (243) THEN wahl=- (wahl=1)*md 
(mepo,gros)+wahl-1:G0OTO 298 

278 n=VAL (ein$):IF (n<1) OR (n>md(mepo,gros)) THEN 228 

288 wahl=n 

298 PAPER 1:PEN B:PRINT wahl; :PAPER B:PEN 1:G6G0TO 168 

388 REM Hauptmenue 

318 GOSUB 138: IF ein$=del$ THEN RETURN 
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328 ON wahl GOSUB 340,3008, 40008 ‚5800, 60008 

338 GOTO 318 

348 REM Nebeni 

358 GOSUB 138: IF ein$=del$ THEN mepo=md (mepo,ruck): RETURN 
368 ON wahl GOSUB 379,2200,2300,2490,2588,26580:G0T0 350 

37®B REM unteri 

388 GOSUB 130: IF ein$=del$ THEN mepo=md (mepo,ruck):z RETURN 

398 ON wahl GOSUB 2158,2168,2178: RETURN 

1800 REM Init 

1810 del $#=CHR$ (127) 

1828 FOR i=B TO 2:READ exit$(i):NEXT 

1838 DATA "Ende Programm" 

1848 DATA "Hauptmenue" 

1858 DATA "letztes Menue" 

1868 DIM m$ (180) ‚md(188,35) zruck=B:nxt=1:gros=2:dflt=3:n=-1:i=- 
1 

10878 i=i+1:READ m$t(i)smd(i,ruck)=nsmd (i,dflt)=i:IF m$(i)="!" T 
HEN i=i-1:md (md (i,ruck) ‚gros)=i-md (md (i ,ruck) „nxt) +1: RETURN 
1888 IF LEN(m$(i))<3 THEN n=VAL (m$(i))zmd(n,nxt)=i:i=i-1:IF md 
(i,ruck)>=@® THEN md(md(i,ruck) ‚gros)=i-md (md (i ,ruck) ‚nxt) +1 
19890 GOTO 1978 

1188 RETURN 

1118 DATA "Hauptmenue" 

1128 DATA 8 

1138 DATA "Drucken" 

1148 DATA "Zeigen" 

1158 DATA "editieren" 

1168 DATA "Suchen" " 

11780 DATA "Dienst" 

1188 DATA 1 

1198 DATA "Normal","Proportional","Blocksatz" ,"Blocksatz+Propo 
rtional" 

12808 DATA & 

1218 DATA "letztes Menue","Nur fuer Testzwecke","usw. etc. usf 


1228 DATA "!" 
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3.2 Eingabemaskengenerator 


Im Zusammenhang mit dem Erstellen von anwenderfreundlichen 
Programmen ist es auch notwendig, alle Benutzerschnittstellen 
gegen Fehlbedienungen abzusichern. 


Benutzerschnittstellen sind grundsätzlich alle Stellen des Pro- 
gramms, in denen der Anwender per Tastatur, Joystick, Light- 
pen oder einem anderen Eingabegerät die Möglichkeit hat, den 
Programmablauf in irgendeiner Weise durch seine Eingabe zu 
verändern. Der im vorhergehenden Kapitel beschriebene Menue- 
generator ist so geschrieben, daß alle nicht zulässigen Eingaben 
abgefangen und ignoriert werden. Beim Eingabemaskengenerator 
soll das für beliebige Eingaben realisiert werden. Wir wollen das 
Programm an einem Beispiel entwickeln: 


Eingegeben werden sollen, wie z.B. bei einem Adreßprogramm, 
Name, Adresse, Ort, Telefon und Datum. Dabei soll für jede 
Eingabe nur ein bestimmter Raum vorgesehen sein. Bei der Ein- 
gabe des Namens sollen nur Buchstaben erlaubt sein, bei der 
Eingabe der Telefonnummer jedoch nur Zahlen und der Schräg- 
strich usw. 


Die Daten für eine Eingabemarke sollen dabei durch DATA- 
Zeilen gegeben sein. 
Folgende Angaben sind dazu wichtig: 


- Kommentar zur Eingabe (z.B. Name) 

- Bildschirmposition des Kommentares 

- Länge des Eingabefeldes 

- Kennziffer für die Menge der erlaubten Eingaben 


Die Eingabe einer Maske mit all ihren Feldern wird insgesamt 
abgeschlossen, d.h., daß ein Korrigieren im ersten Eingabefeld 
auch nicht möglich sein soll, wenn man sich schon in einem 
anderen Feld befindet. Eine Eingabe über die vorgegebene 
Länge hinaus soll nicht möglich sein. Die Cursortasten für "nach 
rechts" und "nach links" bewegen den Cursor innerhalb des 
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Feldes. RETURN und "Cursor nach unten" bewegen den Cursor 
ins nächste Feld, während er durch "Cursor nach oben" in das 
vorhergehende zurückgebracht wird. Durch Drücken der COPY- 
Taste wird die gesamte Eingabe übernommen. 
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18 
20 
38 
48 
58 
68 
78 
88 
98 


190 
118 

2) 
120 


MODE 2 
GOSUB 828 
GOSUB 88: REM Eingabe holen 
REM Eingabe Stet zur verfuegung 
LOCATE 1,28 
FOR i=1 TO anzfeld:PRINT ein$(i) NEXT 
END 
CLS: feldnum=1 
FOR i=1 TO anzfeld 
LOCATE x (i),yti) 
PRINT koment$(i);":2";3STRING$(1(i),,".")zsein$=STRING$ (1 (i)," 


ein$(i)=STRING$(1(i)," ") 


138 NEXT 


148 


x=x (feldnum) :y=y (feldnum) 


158 l1m=1 (feldnum) :kenzif=ken (feldnum) 


168 


LOCATE x,y:PRINT koment$(feldnum) ;":2"35 


178 x=x+LEN (koment$ (feldnum) ) +1 


188 


IF x>88 THEN y=y+x\88:x=x MOD 88 


198 e$=ein$(feldnum) 

208 GOSUB 288 

218 ein$(feldnum) =e$ 

228 IF endflg THEN RETURN: REM Eingabe Fertig 

2380 IF hochflg THEN feldnum=feldnum-1:IF feldnum=B THEN feldnu 


m=1 
240 


IF runtflg THEN feldnum=feldnum+1: IF feldnum>anzfeld THEN 


feldnum=anzfeld 
258 runtflg=@:hochflg=8 
268 GOTO 148 


278 
288 
298 


PRINT CHR$(7);:G60TO 368 
" Eingabe holen 
"x,y : Startkoordinaten 


388 ° Im : Eingabefeldlaenge maximal 


318 


‚ 


aus : Window # 


328 * rueckgabe : e$ 


338 


LOCATE x,y 


348 1=1 


358 


CALL &BB8Bi: REM Cursor an 


368 a$=INKEY$: IF a$="" THEN 368 


370 
388 
390 
498 
418 
420 
438 
440 
450 
460 
4708 
488 
490 
580 
518 
520 
538 
548 
550 
568 
570 
588 
598 
608 
618 
628 
638 
640 
658 
660 
678 
688 
690 
708 
7ı0 
720 
738 
740 
758 
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a%=ASC (a$) 

FOR i=1 TO anstz:IF a%>stz%(i) THEN NEXT 

ON i GOTO 479,478,5190,548,578,598 

REM Test auf erlaubte eingabe 

okflg=-1 

ON kenzif GOSUB 618,668,728,778 

IF okflg=@B THEN 278 

IF POS(#aus) >=x+lm THEN 278 

e$=LEFT$ (e$,POS (#aus) -x) +a$+RIGHT$ (e$,1lm-(P0S(#aus)-x)-1) 


PRINT a$;:G60TO 368 

REM Return und Cursor nach Unten 
runtflg=-1 

CALL &BB84: REM Cursor aus 
RETURN 


REM chr$ (242) cursor rechts 

IF P0OS(#aus)=x THEN 278 

PRINT CHR$ (8) ;:60T0 348 

REM chr$(243) cursor links 

IF PO0S(#aus) >=x+1m THEN 278 

PRINT CHR$(9);:G60TO 3648 

REM CURSOR Hoch 

hochflg=-1:G60T0 498 

REM Copy 

endflg=-1:G0T0 498 

REM Test erlaubt Buchstaben 

IF a%>64 AND a%<91 THEN RETURN 

IF a%>96 AND a%<123 THEN RETURN 

IF a%=32 THEN RETURN 

okf1lg=8: RETURN 

REM Test erlaubt Buchstaben und Zahlen 
GOSUB 618 

IF okflg THEN RETURN ELSE okflg=-i 
REM Test auf Zahlen 

IF a%>47 AND a%<59 THEN RETURN 
okf1g=@: RETURN 

REM Test erlaubt Telefon, also Zahlen und "/" 
GOSUB 598 

IF okflg THEN RETURN ELSE okflg=-i 
IF a%=47 THEN RETURN 


Tj 


768 
770 
788 
798 
800 
810 
820 
858 
848 
858 
840 
870 
880 
898 
908 
9718 
920 
958 
948 
958 
968 
978 
988 
998 
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okflg=9: RETURN 
REM Test erlaubt Datum, also Zahlen und Punkt 


GOSUB 5698 
IF okflg THEN RETURN ELSE okflg=-i 
IF a%=45 THEN RETURN 
okf1lg=8: RETURN 
REM init 
anstz : Anzahl Steuerzeichen 
‘ stz%(anstz) : ASCII der erlaubten Steuerzeichen 
anstz=5:FOR i=1 TO anstz:READ stz%(i) NEXT 
DATA 13,241,242,243,240,224 
aus=8:REM Windownummer 
REM Eingabemaske 
READ anzfeld : REM Anzahl der Eingabefelder 
FOR i=1 TO anzfeld 
READ koment$(i),x(i),y(i): REM Kommetar ,x- und y-Position 
READ 1(i): REM laenge des Eingabefeldes 
READ ken (i):REM Kennziffer fuer erlaubte Eingaben 
1:Buchstabe, 2:Buchstaben und Zahlen, 3:Telefon, 4:Datum 
NEXT i 
RETURN 
REM Menue Data 
DATA S 
DATA "Name ".1,4,20,1 


1280 DATA "Datum ",58,4,8,4 
10810 DATA "Strasse",1,6,20,2 
1820 DATA "Ort ".1,9,38,2 
1838 DATA Telefon,50,9,12,3 
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Mit dem XREF-Befehl erzeugte Crossreferenceliste: 


AUS ! 440 450 4508 520 55B 878 

ANSTZ ! 388 858 858 

A % 370 380 6208 620 638 5530 648 708 708 750 808 

A $ 360 360 378 450 468 

ANZFELD ! &8 98 248 24B 898 9708 

ENDFLG ! 228 &88 

E $ 198 218 4598 458 458 

EIN $ 68 118 128 198 210 

FELDNUM ! 88 148 148 158 158 168 178 198 218 238 238 238 238 2 
40 240 240 248 

HOCHFLG ! 238 258 588 

I ! 68 608 98 188 180 118 11B 118 128 12D 388 380 398 858 859 9 
va 910 910 918 920 938 958 

KEN ! 158 938 

KENZIF ! 150 428 

KOMENT $ 118 158 170 918 

LM ! 1590 440 450 550 

L ! 118 118 120 158 348 928 

LIWST ! 

OKFL&E ! 418 438 658 480 480 710 740 7408 768 798 798 818 
RUNTFLG ! 248 258 488 

STZ % 388 858 

x ! 188 140 148 1640 178 170 188 188 188 180 330 440 450 450 52 
oe 550 918 

Y:! 108 148 148 168 188 188 338 918 
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4. Circle 


Das hier gezeigte Listing stellt eine Möglichkeit dar, den auch 
bei den neuen CPC-Versionen nicht vorhandenen Circle-Befehl 
vom BASIC aus mit hervorragender Geschwindigkeit zu simulie- 
ren. 


Da die Routine nur je einen 1/4 Kreis berechnet und die ande- 
ren Viertel durch Spiegelung der Werte erzeugt, ist sie schneller 
als "normale"-Circle Routinen. 


Bei Aufruf der Routine mit GOSUB muß R den Radius, X und 
Y die Position und e die Exzentrizität ("Beulungsfaktor") enthal- 
ten. 
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iQ RAD 

28 MODE 2 

38 INPUT"radius,exzentriz. ",‚,r,e 
48 INPUT"x Koor.,y Koor. "„xk,yk 
42 GOSUB 48 

453 END 

68 x (B)=B:y(B)=rite 

78 x(1)=B:y(1)=-rite 

88 x (Z)=B:y(2)=-r#e 

98 x(FI=B:y(S)=rte 

1088 FOR al=8 TO FI/Z STEF PI/18 
118 x=r#SIN(al):y=SOR (r#r-xtx)#e 
120 i=3:60SUB 188 

138 i=1:y=-y:GOSUB 188 

148 i=2:x=-x:60SUB 188 

150 i=3:y=-y:G05SUB 180 

168 NEXT 

178 RETURN 

188 MOVE xk+x ti) ,„yk+tyli)sxt(i)=x:ıyli)=y 
1990 DRAW xk+x (i) ,„yk+ty(i) RETURN 
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5. Schützen eigener Programme 


Eine einfache Möglichkeit, eigene Programme vor neugierigen 
Naturen zu schützen, ist das Abspeichern mit dem Zusatz ’p’. 
Das ’p’ wird, durch Komma getrennt, an den Programmnamen 
angehängt. 


SAVE "name.xxx",p 


Ein solches Programm kann nur durch den Befehl 
‚RUN "name.xxx" gestartet werden. Der Programmlauf kann aber 
noch mit der ESC-Taste abgebrochen werden. Dann ist direkt 
zwar noch kein Listing möglich, aber Freaks kommen sehr 
schnell auch dahinter. 


Wenn man den Speicherplatz &BDEE mit dem hexadezimalen 
Wert &C9 belegt 


POKE &BDEE,&C9 


wird eine Programmunterbrechung durch Betätigen der ESC- 
Taste unterbunden. Der gleiche Effekt ist auch mit dem BASIC- 
Befehl KEY DEF möglich: 


KEY DEF 66,1,0 ESC-Taste aus 
KEY DEF 66,1,252 ESC-Taste an 


Es versteht sich von selbst, daß das Programm dabei natürlich so 
ausgefuchst erstellt sein muß, daß es nicht abstürzen kann oder 
durch beabsichtigt falsche Eingaben in eine Error-Meldung 
gezwungen wird, was ja ebenfalls einen Programmstop mit sich 
bringen würde. 

Wenn ein Programm zu umfangreich ist, um alle Eventualitäten 
zu prüfen, welche zu einer Fehlermeldung führen können, kann 
man einen Programmabbruch durch den Befehl 


ON ERROR GOTO zeilennummer 
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vermeiden. Ob in der angegebenen Zeile nun eine selbst defi- 
nierte Fehlermeldung durchgeführt wird oder z.B. ein CALL 0 
bleibt dem Programmierer dann selbst überlassen. 


Beispiel: 


10 ZAEHLER=O 

20 INPUT"Teiler",T 

30 PRINT 10/T 

40 ON ERROR GOTO 100 

50 GOTO 20 

100 ZAEHLER=ZAEHLER+1 

110 IF ZAEHLER<4 THEN PRINT"falsche Eingabe" ELSE CALL 0 
120 GOTO 50 


Dem Programmbediener ist es in diesem Beispiel drei mal 
gestattet eine falsche Eingabe zu tätigen. Bei einer weiteren 
fehlerhaften Eingabe wird durch CALL 0 ein RESET ausgelöst. 


Zu einem guten Programm gehört aber auch ein ordentlicher 
Abschluß. Damit das Programm nach diesem Abschluß nicht 
geknackt werden kann, muß es im Rechner zerstört werden; dies 
ist immer noch der sicherste Schutz vor dem Auslisten. 

Sollte also die Abfrage nach dem Programmende positiv beant- 
wortet werden, braucht man lediglich den Befehl CALL 0 zu 
setzen. Dieser löst dann einen RESET aus, wie es auch mit der 
Tastenkombination CTRL/SHIFT/ESC möglich ist. 
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6. Erleichterung bei der Programmeingabe 


Bei der Eingabe längerer Programme kommt es häufig vor, daß 
unnötige Blanks gesetzt werden. Diese beanspruchen 
Speicherplatz, der dem Programmierer an einer anderen Stelle 
möglicherweise hinterher fehlt. 

Es ist nun aber kaum machbar, sich beim Eintippen der 
Programme einerseits auf die Syntax zu konzentrieren und 
andererseits auch noch im Auge zu behalten, welche Blanks 
erforderlich, und welche überflüssig sind. 


Wenn man vor dem Beginn der Eingabe den Speicher &AC00 
mit einem Wert ungleich null POKEt, so ist einem diese Sorge 
abgenommen. In diesem Fall kontrolliert der Rechner, welche 
Blanks zur Syntax gehören. Alle anderen werden unterdrückt. Ja, 
man kann sogar, wenn man nicht sicher ist, ’für alle Fälle’ noch 
ein paar Blanks mehr eingeben. Letztendlich werden nur die 
maßgeblichen übernommen. 
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7. Beschleunigung von BASIC-Programm 


Obwohl das Schneider-BASIC sich in Bezug auf Geschwindig- 
keit nicht zu verstecken braucht, gibt es Probleme, bei denen 
der Zeitfaktor eine große Rolle spielt (z.B. bei Sortierverfahren). 
Wenn eine vom Algorithmus her nicht mehr zu beschleunigende 
Version vorliegt, sind oft durch geschickte Programmier- 
techniken noch Geschwindigkeitsvergrößerungen zu erreichen. 
Einige dieser Möglichkeiten wollen wir im folgenden aufzeigen. 


Mit der BASIC-Variablen TIME haben wir ein einfaches Werk- 
zeug, um BASIC-Ausführungzeiten zu messen. Betrachten wir 
noch einmal das Bubblesort-Verfahren. Anhand dieses Beispiels 
wollen wir allgemein zeigen, wie Programmbeschleunigungen zu 
erreichen sind. In dem folgenden Programm haben wir einen 
ständig gleichbleibenden Teil und einen variablen Teil geschrie- 
ben, um die Beispiele möglichst deutlich zu machen. Die Zeilen 
10 bis 90 werden wir also, da sie immer gleich bleiben, nicht 
ständig neu drucken. 
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18 
20 
38 
40 
58 
60 
78 
88 
98 
198 
118 
fel 
128 
138 
198 
148 
150 
168 
ern 
178 
ort 
180 
198 
200 
210 
2208 
2538 


REM BASIC Geschwindigkeit 
anz=1@:anz=anz-1 
DIM Feldelement (anz) 
FOR i=8 TO anz:READ Feldelement (i) :NEXT 
DATA 18,4,7,3,2,24,8,17,5,19 
t!=TIME 
GOSUB 188 
PRINT (TIME-t!)/308@ 
END 
REM Bubblesort 
feldgros=anz : REM zu sortierendes Feld ist zuerst Gesamt 
d 
index=1 : REM Beginne Vergleich mit ersten Elementen 
IF Feldelement (index-1)>Feldelement (index) THEN GOSUB 
: REM Austauschen 
index=index+i1 : REM naechstes Element verleichen 
IF index<{=feldgros THEN 138 : REM zum Vergleich 
feldgros=feldgros-1 : REM zu sortierendes Feld verklein 


IF feldgros>=1 THEN GOTO 128 : REM verkleinertes Feld s 
ieren 
RETURN 
REM Unterprogramm : Austausch zweier Elemente 
zwischenspeicher=Feldelement (index) 
Feldelement (index) =Feldelement (index-1) 
Feldelement (index-1)=zwischenspeicher 
RETURN 


Zeit: 0.62 Sekunden mit REM-Zeilen 
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REM-Zeilen 


Die erste Verbesserung erreichen wir durch das Entfernen 
sämtlicher REM- bzw. "" (Shift 7) -Zeilen. 


Zeit: 0.56 Sekunden ohne REM-Zeilen 


Variablenwahl 


Einer der wichtigsten Punkte ist die Variablenwahl. Das BASIC 
kennt INTeger- und REAL-Variablen. REAL-Variablen sind 5 
Bytes lang und benötigen bei der Behandlung sehr viel mehr 
Zeit als die 2 Byte langen INT-Variablen. Daher sollten immer, 
wenn es möglich ist, INT-Variablen eingesetzt werden. In den 
meisten Fällen kann auf REAL-Variablen verzichtet werden. 


5 DEFINT a-z 

188 feldgros=anz 

128 index =1 

158 IF Feldelement (index-1)>Feldelement (index) THEN GOSUB 198 
148 index=index+i 

158 IF index‘=feldgros THEN 138 

1688 feldgros=feldgros-i 

178 IF feldgros>=1 THEN GDTO 128 

188 RETURN 

198 zwischenspeicher=Feldelement (index) 

218 Feldelement (index) =Feldelement (index-1) 
220 Feldelement (index-1)=zwischenspeicher 
238 RETURN 


Zeit: 0.42 Sekunden ohne REAL-Variablen 


INT-Variablen können nur Werte von -32768 bis 32767 anneh- 
men. Bei der Behandlung von Adressen, die zwischen 0 und 
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65535 (&0000 bis &FFFF) liegen, treten daher Probleme auf. 
Anstatt aber nun doch REAL-Variablen zu benutzen, kann man 
alle Adressen, die größer als &7FFF sind, auch als negative 
Zahlen behandeln. 


FOR-NEXT-Schleifen 


Sollen Schleifen programmiert werden, so ist die FOR-NEXT 
Schleife schneller als z.B. eine Schleife mit IF-THEN-GOTO. 


Zeit: 0.34 Sekunden mit FOR-NEXT 


Variblennamen und Definitionen 


Je kürzer der Variablenname, desto schneller seine Verarbeitung. 
Da auch das Typenkennzeichen zu seiner Länge beiträgt, sollten 
alle Variablen vorher mit DEF INT/ REAL/ STR definiert 
werden. 


5 DEFINT a-z 

18 REM BASIC Geschwindigkeit 
28 a=1ß: a>a-1 

38 DIM e(a) 

48 FOR i=B TO a:READ e(i):NEXT 
1808 FOR f=a TO i STEP -i 

118 FOR i=1 TO f 

128 IF eti-i)>e(i) THEN GOSUB 150 
138 NEXT i,f 

148 RETURN 

158 z=e(i) 

168 e(i)=e(i-1) 

17B eti-i)=z 

188 RETURN 


Zeit: 0.35 Sekunden mit kurzen vordefinierten 
Variablennamen 
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BASIC-Zeilen 


Bei der internen Verarbeitung geht es auf jeden Fall schneller, 
eine lange BASIC-Zeile zu verarbeiten, als mehrere kurze. 
Programmzeilen, die nicht als Ansprungzeile benötigt werden, 
sollten deshalb mit anderen Zeilen zusammengefaßt werden. 


188 FOR f=a TO 1 STEP -1:FOR i=1 TO f:IF e(i-1)>e(i) THEN GOSU 
B 128 

118 NEXT i,f:RETURN 

128 z=e(i):eli)=eli-1):e(i-1)=z:RETURN 


Zeit: 0.34 Sekunden mit wenigeren Programmzeilen 


Wie Sie sehen, haben wir gegenüber der ersten Version eine be- 
trächtliche Zeitersparnis erreicht. Wem dies noch immer nicht 
schnell genug ist, der wird wohl oder übel zur Maschinensprache 
greifen müssen. 


Noch einige Tips, die nicht am vorigen Programm demonstriert 
werden können. 


- Bevor Variablen mit demselben Anfangsbuchstaben 
verwendet werden, sollten die Anfangsbuchstaben 
genommen werden, die noch frei sind. 


- Kommen Variablen mit demselben Anfangsbuchsta- 
ben vor, sollten die Variablen, die voraussichtlich am 
häufigsten benutzt werden, als erste im Programm 
initialisiert werden, auch wenn das eigentlich nicht 
notwendig ist. Beispiel: 


I ist häufiger benutzt als IN$. IN$ taucht in Zeile 
10, I erst in Zeile 100 auf. Daher sollte vor Zeile 10 
z.B. einfach Zeile 9 I=0 eingefügt werden. 
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Die zuerst gefundenen Variablen werden als erste in 
die Variablentabelle eingetragen und dadurch später 
schneller wiedergefunden. 


- Bei Berechnungen sind die Grundrechenarten immer 
schneller. Also z.B. X*X anstelle von X’*2 verwen- 
den. Auch sollten Klammern nur gesetzt werden, 
wenn sie unbedingt notwendig sind. 


- Bringen Sie keine unnötigen Anweisungen in die 

Schleifen hinein. Soll z.B. für den Schleifendurchlauf 
eine bestimmte Farbe gewählt werden, so kann das 
schon vor der Schleife passieren. 
Aber auch solche Befehle, die an sich keine Aus- 
führungszeit beanspruchen, wie REM oder DATA, 
gehören nicht in eine Programmschleife. Sie werden 
zwar nicht ’ausgeführt’, müssen aber immer wieder 
interpretiert werden, was ebenfalls zeitintensiv ist. 


- Vermeiden Sie alle unnötigen Blanks im Programm- 
text. Auch diese müssen interpretiert werden und 
verbrauchen dementsprechend kostbare Zeit. 


- Wenn Sie sehr viel mit String-Zuweisungen arbeiten, 
kann es des öfteren zur Garbage Collection kommen. 
Bei dieser ’Müllbeseitigungsaktion’ werden alle nicht 
mehr benötigten Werte im Speicher gelöscht und 
damit wieder Platz geschaffen. Diese Aktion dauert 
meist viele Sekunden, in denen der Rechner nicht zu 
beeinflussen ist. Die Garbage Collection ist auch 
nicht zu vermeiden. Man kann sie aber stetig in 
kleinen Stücken durchführen, so daß immer nur 
wenige Millisekunden verbraucht werden. 
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Der Befehl PRINT FRE(") löst die Garbage Collec- 
tion aus. Wenn man ihn geschickt plaziert, beispiels- 
weise hinter einer INPUT-Anweisung, wo meist eine 
gewisse Verzögerung bis zur Eingabe auftritt, oder 
mit dem Befehl EVERY-GOSUB in bestimmten 
Zeitabschnitten immer wieder aufruft, so kann ein 
Zeitverlust durch die Garbage Collection vollkom- 
men vermieden werden. 
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8. Spezielle Befehle des Schneider-BASIC 


8.1 EVERY a,b GOSUB c 


Mit dem Befehl EVERY-GOSUB ist die phantastische Möglich- 
keit gegeben, hardwaregesteuerte Unterbrechungen mit BASIC- 
Befehlen gezielt nutzen zu können. Das ermöglicht dem Pro- 
grammierer Multi-Tasking-Programme in BASIC zu schreiben, 
ohne mühselige Abstecher in die Maschinensprache machen zu 
müssen. 

Durch geschickte Anwendung dieses Befehles kann der Rechner 
mehrere Programme, scheinbar zur selben Zeit, bearbeiten. 
Somit kann man besonders zeitkritische Unterprogramme, wie 
z.B. einen Zeitzähler, optimal und mit geringstem Aufwand 
verwalten. 

Wird der Befehl EVERY mit den entsprechenden Parametern, 
die noch erklärt werden, aufgerufen, läßt der BASIC-Interpreter 
alles ’stehen und liegen’, und verzweigt zu dem, mit GOSUB 
angegebenen Programmteil. 


Bevor nun eine eingehende Klärung erfolgt, soll ein kurzes 
Programm den Nutzen dieses starken Befehls andeuten. 


5 MODE 2 : ZEIT=0 

10 EVERY 50,0 GOSUB 100 

20 FOR I=0 TO 2*PI STEP P1/360 

30 PLOT 320+300*SINC1),200+195*CoS(I) 
40 NEXT I 

50 END 

100 ZEIT=ZEIT+1 

110 LOCATE 50,10 

120 PRINT ZEIT 

130 RETURN 


Dieses Beispiel der Lissajou-Figur hat zwar schon einige Male 
herhalten müssen, ist aber zur Demonstration des EVERY- 
Befehles sehr gut geeignet. 

Hier ruft EVERY ein UP auf, welches einen Zeitzähler inkre- 
mentiert und darstellt. Dazu muß dieses UP natürlich in gleich- 
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mäßigen Abständen angewählt werden. Da aber die 
Berechnungsdauer der Funktionen SIN und COS in gewissen 
Grenzen abhängig von den Funktionswerten ist - so dauert z.B. 
die Berechnung des Sinus von PI/3 deutlich länger als die von 
PI/4 - kann man in diese PLOT-Schleife keinen Zeitgeber 
einbauen. 

Diesen legt man in das UP, welches dann, durch den Befehl 
EVERY gesteuert, in gleichmäßigen Zeitabständen aufgerufen 
wird. 


Die Parameter a, b und c: 


a- gibt die Anzahl der Zeiteinheiten (0.02 sec) an, nach 
denen das UP aufgerufen werden soll. 


b- ist die Nummer des gewählten Zeitgebers. Vier Zeit- 
geber mit den Nummern O bis 3 stehen zur Verfü- 
gung, wobei 3 die höchste Priorität hat. Wenn meh- 
rere UP-Aufrufe im Programm eingebaut sind, so 
werden sie nach ihrer Rangstufe behandelt. Erfolgt 
z.B. ein Aufruf mit Priorität 2, während noch ein 
Ablauf mit niederer Rangstufe behandelt wird, so 
wird dieser unterbrochen, der mit der höheren Prio- 
rität durchgeführt und danach erst der andere zu 
Ende gebracht. 

Aus diesem Grund muß die Vergabe der Prioritäten 
genauestens überdacht sein. 


e- steht für die Zeilennummer des gewünschten UPs. 
Zu dieser Zeilennummer verzweigt das Betriebssys- 
tem in den durch a angegebenen Intervallen. 


Uhren höherer Priorität haben also den unbedingten Vorrang vor 
denen niederer Prioritäten. Alle Uhren haben Vorrang vor dem 
Hauptprogramm. Das kann darin gipfeln, daß bei ungünstiger 
Programmierung keine Zeit mehr fürs Hauptprogramm übrig- 
bleibt, wenn die durch die Uhr bedingte Verzweigung zu viel 
Zeit beansprucht. Folgendes Beispiel, schnell mal eingetippt, 
zeigt dies deutlich. 
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5 MODE 2 

10 EVERY 30 GOSUB 100 

20 FOR I=1 TO 639 : PLOT 1,100 : NEXT I 

50 END 

100 REM Unterprogramm 

110 FOR J=1 TO 30 : LOCATE 20,5 : PRINT J : NEXT J 
120 RETURN 


Das ’Unterprogramm’ ab Zeile 100 verschlingt soviel Zeit, daß 
zum eigentlichen Programm, dem PLOTten einer Linie, kaum 
noch Rechnerzeit übrig bleibt. 

So sollte man diesen Befehl nicht gebrauchen. 


Um den Befehl EVERY voll ausschöpfen zu können, sollten Sie 
auch direkt die Erklärungen zu den Befehlen DI und EI lesen, 
die bei der Erläuterung des Befehles AFTER ebenfalls beschrie- 
ben werden. 


8.2 AFTER a,b GOSUB c 

Der Befehl AFTER bewirkt einen bedingten Sprung zu einem 
Unterprogramm. Der Sprung wird erst nach einer bestimmten 
Zeit ausgeführt. 

Die Parameter: 


a- Anzahl der Zeiteinheiten (0.02 sec), nach denen der 
Sprungbefehl ausgeführt werden soll. 


b- Angabe des gewählten Zeitgebers, es stehen die vier 
Zeitgeber 0 bis 3 zur Verfügung, wobei 3 die 
höchste Vorrangstufe besitzt. 


ce - gibt die erste Zeilennummer des UPs an. 
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Im Gegensatz zu dem Befehl EVERY, der einen immer wieder- 
kehrenden UP-Aufruf zur Folge hat, bewirkt der Befehl 
AFTER nur jeweils einen Sprung zu dem gewählten UP. 
AFTER-GOSUB-Befehle mit höheren Prioritäten unterbrechen 
im Falle einer zeitlichen Überschneidung die UPs, die von 
AFTER-GOSUB-Befehlen niederer Priorität aufgerufen wurden. 
Diese werden später zu Ende geführt. 


Die Befehle EVERY und AFTER simulieren softwaremäßig eine 
Interruptsteuerung, die beim Z80 hardwaremäßig vorhanden ist. 
So sind auch die Z80-Befehle DI und EI im Schneider-BASIC 
wiederzufinden. 


DI steht für Disable Interrupt (Interrupts sperren) 
EI steht für Enable Interrupt (Interrupts zulassen) 


Soll ein Unterprogramm, das durch EVERY oder AFTER auf- 
gerufen wurde, unbedingt vor Interrupts höherer Priorität 
geschützt werden, so kann dies durch setzen des DI-Befehles 
geschehen. Dieser unterbindet dann eine Unterbrechung von 
einem anderen Zeitgeber, egal ob nun EVERY oder AFTER 
einen Interrupt anfordert. 

Ebenso schützt DI ein Unterprogramm, das z.B. mit EVERY 
15,2 GOSUB aufgerufen wurde, vor einer Unterbrechung mittels 
AFTER 10,2 GOSUB. Zu beachten ist an diesem Beispiel, daß 
derselbe Zeitgeber benutzt wurde. 


Mit dem Befehl EI werden wieder alle Unterbrechungen zu- 
gelassen. Die bis dahin gesperrten Interrupts sind aber nicht 
völlig unterdrückt worden. Die zwischenzeitlich aufgetretenen 
Unterbrechungen wurden gespeichert und können nun nach EI 
im ’Eildurchgang’ abgearbeitet werden. 
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Starten Sie dazu folgendes Programm: 


10 EVERY 20,0 GOSUB 100 
20 EVERY 10,2 GOSUB 200 
30 GOTO 30 


110 FOR 1=1 TO 10 : PRINT I; : NEXT 
120 PRINT : EI : RETURN 

130 REM- ----------------u0n nn nnnnnn nn 
200 PRINT"UNTERBRECHUNG PRIORITAET 2" 
210 RETURN 


Ändern Sie jetzt den Endwert der FOR-NEXT-Schleife von 10 
auf 50. 

Man erkennt, daß die Schleife, geschützt durch DI, immer erst 
ganz abgearbeitet werden kann, bevor die Verzweigung in die 
Zeile 200 durch die höhere Priorität erfolgt. Dann aber wird der 
Text aus Zeile 200 nicht nur einmal, sondern so oft hinter- 
einander gedruckt, wie Interruptanforderungen während der 
FOR-NEXT-Schleife auftraten. 


8.3 Der Befehl MOD 


Die Stärke des Schneider-Computers begründet sich u.a. in 
solchen Befehlen, die längere Befehlssequenzen ersetzen. 
Dadurch wird der Quellcode nicht nur kürzer, sondern auch 
deutlich übersichtlicher gehalten. 


Wir wollen die ASCII-Codes von 33 bis 255 mit den zugehörigen 
Zeichen in vier Spalten auf dem Bildschirm ausgeben. 


10 FOR 1=33 TO 255 

20 PRINT 1;" ";CHRSCI), 

30 IF 1/4=INT(1/4) THEN PRINT 
40 NEXT 
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Zeile 10 und 40 bilden die Schleife. In Zeile 20 wird die Lauf- 
variable und das zugehörige Zeichen ausgegeben. Das Komma 
hinter der PRINT-Zeile bewirkt eine hintereinander durchge- 
führte Ausgabe. Damit nur die gewünschten vier Spalten bei der 
Ausgabe entstehen, muß nach vier PRINTs mit Komma eines 
ohne erfolgen, damit der Wagenrücklauf ausgelöst wird. 

In der Zeile 30 wird mittels INTeger jeder vierte Durchgang 
ermittelt. Einfacher, verständlicher und übersichtlicher geht dies 
aber mit der Funktion MOD (Modulo), deren Ergebnis der so- 
genannte Rest der Division ist. 


4MOD 4=0 
6MOD 4=2 
10 MOD 11 = 10 


Wenn nun der Rest der Division durch 4 gleich 0, also das 
Ergebnis der Funktion MOD gleich 0 ist, dann ist die Bedingung 
für den Wagenrücklauf erfüllt. 

Man kann Zeile 30 wie folgt verbessern: 


30 IF I MOD 4=0 THEN PRINT 


Befehlserweiterun 


TEIL 2 


Befehlserweiterungen und andere nützliche 
Maschinenprogramme 
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9. Programmierhilfen 
9.1 Der Aufbau des Variablenspeichers 


Im folgenden werden wir uns mit der internen Verarbeitung der 
BASIC Variablen beschäftigen. Am Ende dieses Abschnittes fin- 
den Sie die Befehlserweiterungen DUMP und XREF. DUMP 
gibt alle Variablen, die mit bestimmten Buchstaben anfangen, 
mit ihren Werten aus. XREF (X=Kreuz: engl. Cross, also Cross- 
reference) gibt zu beliebigen Variablennamen alle BASIC-Pro- 
grammzeilen aus, die diese Variable enthalten. DUMP und 
XREF sind sinnvolle Befehlserweiterungen, die besonders das 
Programmieren und das meistens darauf folgende Fehlersuchen 
sehr vereinfachen. 


Das Locomotive-BASIC hat gerade in Bezug auf Variablen her- 
vorragende Eigenschaften zu bieten: 


Wie üblich, gibt es drei Standardtypen von Variablen: Integer 
(Ganzzahl), Real (Fließkomma) und String (Kette, also alpha- 
numerische Daten). Angenehm ist zunächst die Möglichkeit, 
Variablen mit bestimmten Anfangsbuchstaben von vornherein 
einem festen Typ zuzuordnen. Von dieser Möglichkeit sollte 
grundsätzlich Gebrauch gemacht werden (siehe Kapitel: 
Beschleunigung von BASIC-Programmen). 


Vollkommen neu in dieser Klasse von Rechnern ist jedoch die 
Möglichkeit, Variablennamen mit bis zu 40 signifikanten Zei- 
chen zu vergeben. D.h., daß alle Buchstaben bzw. Zahlen des 
Variablennamens bei der Unterscheidung von anderen beachtet 
werden. Bisher war es üblich nur die zwei ersten Buchstaben zu 
berücksichtigen. Zum einen ergibt sich dadurch die Möglichkeit, 
eine fast unbegrenzte Zahl von Variablennamen zu benutzen, 
viel wichtiger ist jedoch, daß zum anderen die Variablen "beim 
Namen genannt" werden können. Man kann z.B. jetzt anstelle 
von AK Ausgabekanal schreiben. 


Natürlich darf man es mit der Länge der Namen nicht über- 
treiben, da die Programme dadurch verlangsamt werden. Um die 
Variablennamen unterschiedlicher Länge zu speichern, haben 
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sich die "Locomotivler" einige besondere Tricks ausgedacht. 
Dadurch erhöht sich evtl. sogar die Verarbeitungsgeschwindig- 
keit gegenüber der sonst üblichen Methode, obwohl dies auf- 
grund der festen Namenslänge weniger aufwendig ist. 


Doch zuvor kurz einiges zu den Grundlagen der Variablenbe- 
handlung im Rechner. 


Zur Verwaltung der Variablenwerte befindet sich im Anschluß 
an jedes BASIC-Programm die Variablentabelle.. In dieser 
Tabelle sind sämtliche Variablen mit Namen, Typ und Wert ein- 
getragen. Wird bei der Ausführung eines BASIC-Befehls, z.B. in 
einer Formel, ein Variablenname gefunden, wird dieser Name in 
der Tabelle gesucht und der jeweilige Wert gelesen. 

Wird eine Variable zum ersten Mal benutzt, wird sie sofort in 
die Tabelle eingetragen, da sie noch nicht in dieser vorhanden 
ist. 


In einigen BASIC-Dialekten gibt es die Funktion VARPTR 
(VARiablen PoinTeR), die die Adresse einer Variablen in der 
Variablentabelle ermittelt. Auch im Schneider BASIC gibt es 
diese Funktion, allerdings ist sie nicht im Handbuch erwähnt. 
Der Variablenpointer einer Variablen läßt sich beim Schneider 
mit @Variablenname ermitteln. 


Der so erhaltene Wert (der VARPTR) zeigt auf die Adresse in 
der Variablentabelle, an der der Wert der Variablen steht. Der 
Wert ist für jeden der drei möglichen Typen unterschiedlich ab- 
gespeichert. 


Integer-Variablen 
Bei INT-Variablen besteht der Wert einfach aus High und Low 
Byte der Zahl. An der niedrigeren Adresse, also der, auf die der 


VARPTR zeigt, steht immer das Low Byte (LB). 


A%=100 
PRINT PEEK(@A%)+256*PEEK(@A%+1) 
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ergibt wieder 100, den zugewiesenen Wert. Enthält die Variable 
negative Zahlen, so muß der mit PEEK erhaltene Wert mit UNT 
umgerechnet werden. Das ist notwendig, da es INT Zahlen ohne 
und mit Vorzeichen gibt. -256 ist eine vorzeichenbehaftete INT 
Zahl, &8100 eine vorzeichenlose Zahl. Dezimal hat letztere 
eigentlich den Wert 20736. PRINT &8100 ergibt jedoch -256. 


Bei der vorzeichenbehafteten Darstellung, die außer bei Hexade- 
zimalzahlen immer benutzt wird, wird Bit 15 der Zahl als Vor- 
zeichen interpretiert. 


Real-Variablen 


Bei diesem Typ werden Zahlen in der Exponentialdarstellung 
gespeichert. Die Zahl wird so dargestellt, daß sie nur eine Vor- 
kommastelle besitzt. Die wirkliche Position des Kommas wird 
durch den Exponenten angegeben: 


54321=5.4321*10*. 


Allerdings wird dies intern im Dual- und nicht im Dezimal- 
system erledigt. 


Zum Speichern einer Realvariablen werden fünf Bytes benutzt. 
Die ersten vier Bytes bilden die Mantisse, also den Zahlenteil 
des Wertes, wobei, wie vereinbart, das Komma immer an 2ter 
Stelle steht. Das MSB (Most Significant Bit - höchstwertiges Bit) 
von Byte 4 stellt das Vorzeichen der Zahl dar. Im Byte 5 ist 
schließlich der Exponent enthalten. Um den wirklichen Wert des 
Exponenten zu erhalten, muß von Byte fünf 129 abgezogen wer- 
den, oder anders ausgedrückt: 


Der Exponent ist mit Offset 129 dargestellt. 


Wie bereits erwähnt, ist der Wert als Dualzahl gespeichert. Also 
besteht auch die Mantisse nur aus Nullen und Einsen. Da die 
Mantisse genau eine Vorkommastelle hat, und Null keine Vor- 
kommastelle ist, bleibt nur die Eins. D.h., die Vorkommastelle 
der Dualzahl ist immer eins. Deshalb braucht die Eins nicht mit- 
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gespeichert zu werden, an ihrer Stelle (Bit 7 von Byte 4) wird 
das Vorzeichen gespeichert. Wie bei den INT Zahlen das Low 
Byte den niederwertigen Wert besitzt, haben die Bytes mit 
niedrigen Adressen auch hier niedrige Werte. Die vier Mantis- 
senbytes nennen wir ml bis m4. Damit erhält man die Mantisse 
durch: 


PRINT (m1+256*m2+256*2*m3+256*3*(m4 OR 128))/256”4 


"OR 128" fügt die nicht mitgespeicherte 1 wieder an. Die Divi- 
sion durch 256% ist notwendig, damit auch eine Kommazahl mit 
einer Vorkommastelle entsteht. 


Den Wert einer Realzahl können wir also mit Hilfe des 
VARPTRSs mit folgendem kleinen Programm berechnen. 


100 a=13: "untersuchte Fliesskommavariable 

110 ad=da: 'Adresse von a 

120 mi=PEEK(ad) :m2=PEEK(ad+1):m3=PEEK(ad+2) 

130 m4=PEEK(ad+3):ex=PEEK(ad+4) 

140 PRINT (1-2*SGN(m4 AND 128))*2*Cex-129)*C1+Cm4 AND 127)+(m3+(m2+m1 
1256)/256)/128) 


String-Variablen 


Die letzte Gruppe von Variablen ist die, in denen alphanume- 
rische Daten gespeichert werden können. Ein String ist intern 
nur eine Reihe aufeinanderfolgender Bytes, die die ASCII Codes 
der jeweiligen Zeichen enthalten. Da Strings zwischen Länge 0 
und Länge 255 variieren können, werden die eigentlichen 
Inhalte (die Codes) nicht direkt in der Variablentabelle 
gespeichert. Zum Speichern der Strings gibt es einen eigenen 
Speicherbereich im RAM (am oberen Ende des BASIC RAMSs), 
in dem nur Zeichenketten gespeichert werden. Die Variablenta- 
belle enthält dann nur noch die Startadresse des Strings in der 
Stringtabelle und die Länge des Strings. Beide Werte zusammen 
bilden den sog. Stringdescripter. Das folgende Programm macht 
dieses Verfahren deutlich. 
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100 INPUT a$ 

110 ad=a$ 

120 i=PEEK(ad) 

130 stad=PEEK(ad+1)+256*PEEK(ad+2) 

140 FOR i=stad TO stad+i-1:PRINT CHR$SCPEEKCI));:NEXT i 


Damit haben wir alle Variablentypen besprochen. Schauen wir 
uns jetzt den vollständigen Aufbau der Variablentabelle an. 


Die Variablentabelle 


Die Startadresse der Variablentabelle kann über PEEK aus dem 
systembenutzten RAM gelesen werden. 

An der Adresse &AE85/6 (664,6128:&AE68/9) steht die Start- 
adresse der Variablentabelle. 

Die Variablentabelle ist nach folgender Datenstruktur aufgebaut: 







Verkettungsadresse 


bis max.39 Variablenname (ohne letzten Buchsta- 
ben), letzter Buchstabe des Variablen- 
namens +128 
1 Typ der Variablen 
2, 3 oder 5 Wert der Variablen 


Anfang der nächsten Eintragung nach 
gleicher Struktur. 


Auf die Bedeutung der Verkettungsadresse gehen wir gleich ein. 
Der Namen der Variablen wird prinzipiell als String, d.h. in 
Form seiner ASCII-Codes gespeichert. L&ider ist dieses Prinzip 
nicht durchgängig. Im Variablennamen enthaltene Ziffern 
werden nicht durch ihre ASCII-Codes dargestellt. 


Um das Ende des Variablennamens anzuzeigen, ist beim Code 
für den letzten Buchstaben (bzw. Ziffer) Bit 7 gesetzt oder an- 
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ders ausgedrückt 128 zum Code addiert. Der Typ der Variablen 
wird durch eine Ziffer gekennzeichnet. Es gilt: 


1 Integer 
2 String 
4 Real 


Wie Sie wissen, wird bei Variablennamen Groß- und Klein- 
schreibung nicht unterschieden. Die Variablennamen werden 
immer in Großbuchstaben abgespeichert. Die Umwandlung von 
evtl. vorhandenen Kleinbuchstaben wird durch das Löschen von 
Bit 5 des Codes erreicht. Probieren Sie: 


PRINT CHR$(ASC(b) AND NOT 2%5) 


Durch diese Operationen werden alle Kleinbuchstaben in Groß- 
buchstaben umgewandelt. Ist nun eine Ziffer im Variablen- 
namen, so funktioniert diese Umwandlung natürlich nicht. Das 
Ergebnis ist ein Steuercode, der kleiner als 32 ist. Vor der Aus- 
gabe des Zeichencodes muß also durch OR &20 Bit 5 gesetzt 
werden. Der Name wird dann in Kleinbuchstaben mit den 
korrekten Ziffern ausgegeben. OR &20 wandelt Groß- in Klein- 
buchstaben um. 


Die in der Variablentabelle verwendete Typenkennziffer ist 
gleich der Länge des Wertes der Variablen minus 1 (2, 3 bzw. 5 
Bytes). 


Der Wert, dessen Länge wie beschrieben 2, 3 oder 5 Bytes ist, 
enthält auf die oben behandelte Weise verschlüsselt den Wert 
(bei Zahlen) oder die Adresse des "Wertes" (bei Strings). 


Anhand dieser Struktur wäre es nun möglich, eine beliebige 
Variable in der Tabelle zu suchen, indem einfach alle Variablen- 
namen auf Übereinstimmung mit dem gesuchten geprüft werden. 
Das ist aber, besonders bei umfangreichen Programmen zu zeit- 
aufwendig. 


Das Auffinden eines Variablennamens innerhalb der Tabelle 
wird durch die Benutzung verketteter Listen extrem beschleu- 
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nigt. Um dies zu verwirklichen, wird die am Anfang jedes Ein- 
trags stehende Verkettungsadresse gebraucht. 


Das Prinzip der Datenverwaltung durch verkettete Listen ist, 
daß jeder Datensatz, in unserem Fall die Eintragung der Vari- 
ablen, einen Zeiger zugeordnet bekommt, der auf den nächsten 
relevanten Datensatz zeigt. Das ist die Verkettungsadresse. 


Beim Schneider sind alle Variablen, die mit demselben Anfangs- 
buchstaben beginnen(!), auf diese Weise miteinander verkettet. 
Dadurch reduziert sich die Suchzeit für eine Variable auf ca. das 
1/26-fache, da es 26 unabhängig voneinander verkettete Listen 
gibt (zu jedem Buchstaben eine). Die verketteten Listen benöti- 
gen einen etwas größeren Platz. Doch macht sich das auf jeden 
Fall bezahlt. 

Um eine verkettete Liste zu verwalten, sind zwei zusätzliche 
Informationen erforderlich: 


Zuerst wird die Adresse des ersten und des letzten Listen- 
elementes benötigt. Diese Elemente sind an kein anderes 
"gekettet", deshalb müssen ihre Adressen separat gespei- 
chert werden. Die Adresse des letzten Elementes ist bei 
der hier verwendeten Methode nicht notwendig, da ver- 
einbart ist, daß die Verkettungsadresse mit dem Wert 0 
bedeutet, daß das letzte Element erreicht ist. Die Adresse 
des ersten Listenelementes der Liste jedes Buchstaben wird 
jeweils auf aktuellem Stand im RAM gespeichert. 


Das Suchen einer Variablen geschieht dann nach folgendem 
Schema: 


1) Ersten Buchstaben des Namens holen 

2) Zum Buchstaben gehörende Anfangsadresse des ers- 
ten Elementes holen 

3) Nächste Verkettungsadresse lesen und speichern 

4) Variablennamen auf Gleichheit prüfen 

5) Wenn Variablennamen ungleich, dann mit gespei- 
cherter Verkettungsadresse (wenn ungleich 0) bei 
Punkt drei weitermachen, wenn die Verkettungs- 
adresse gleich O ist, dann nicht gefunden 
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6) Wenn die Variablennamen gleich sind, dann gefun- 
den 


Da die Variablentabelle verschiebbar sein muß, weil sie z.B. bei 
jeder Veränderung des BASIC-Programms verschoben wird, sind 
die Verkettungsadressen immer als Differenz zur Startadresse der 
Tabelle abgespeichert. 


Auf dieser Struktur der verketteten Listen der Variablentabelle 
ist das folgende Programm "DUMP" aufgebaut. 


9.2 DUMP - Ausgabe aller Variablenwerte 


DUMP gibt alle Variablen, die mit den eingegebenen Anfangs- 
buchstaben beginnen, mit ihren Werten aus. 


Da DUMP mit RSX eingebunden ist (siehe Kapitel RSX für ge- 
nauere Informationen), muß vor der Eingabe des Befehlswortes 
DUMP der "Strich" (Shift+@) eingegeben werden. 

Sollen alle Variablen ausgegeben werden, kann dann einfach 
RETURN gedrückt werden. Um bestimmte Buchstabenbereiche 
einzugeben, wird zuvor der """ (Shift+7) eingegeben. Die Eingabe 
der Buchstabenbereiche erfolgt dann wie bei den Befehlen 
DEFINT, DEFREAL und DEFSTR. Ein kompletter Befehl wäre 
also zum Beispiel: 


|IDUMP’A-C,F-L,X,Y 


Das Assemblerlisting des Programms gilt gleichzeitig für den 
XREF Befehl. Lassen Sie sich dadurch nicht stören, und über- 
springen Sie die XREF betreffenden Zeilen. Wir werden sie 
später noch besprechen. 


Um intern arithmetische Operationen durchzuführen, gibt es 
noch die sog. FACs (Fließkomma Akkumulatoren). Da das 
Rechnen mit Realzahlen die Behandlung von 5 Bytes erfordert, 
ist die Speicherung in Registern nicht mehr sinnvoll. D.h., daß 
grundsätzlich alle Zahlen betreffenden Operationen mit den 
FACs durchgeführt werden. 
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Der FAC ist ein Bereich im RAM, der 6 Bytes lang ist. Das 
erste Byte des FAC enthält den Typ der aktuell dort gespei- 
cherten Variablen (Adrese &BOC1 für 464). Die folgenden 
Bytes enthalten den Wert in der jeweiligen Darstellung. Das 
Typenkennzeichen im FAC entspricht genau der Anzahl der zur 
Speicherung des Wertes benötigten Bytes, also 2 für INT, 3 für 
String und 5 für Real. 

Der FAC wird benutzt, um mit der "PRINT FAC" Routine den 
Wert auszudrucken. 


Das Assemblerlisting ist absichtlich sehr ausführlich dokumen- 
tiert, um auch dem Maschinenspracheeinsteiger eine gute Les- 
barkeit zu ermöglichen. 


B rweiterun 
ABO 18 3 
Auao 20 3 
ADDOR 38 


;3 gibt BASIC Zeilennummern aus 
Ana 40 


;s in denen bestimmte Variablen 
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XREF 
[Cross]-REFference 


ABDD 5o ; enthalten sind 

ABDO 68 ;s Format : 

ADD® 7@ 

; "ixref '<Buchstabenbereich(e)> 

ABDO 80 ; zB 3 "ixref'c,f,i,wz 
ADaD 90 5 

ADDD 180 ; DUMP 

ADDD 110 


s gibt alle definierten Vari- 


ablen und ihren Wert aus 


Format : 


Beispiel siehe oben 


poke %ac21,8) direkt 


vor Befehl 


Einbindung mit RSX 


; Log in Extention 
;s RET 


ADaD 128 3 

ABDDO 138 5 

ABDO 140 

;s "idump '<Buchstabenbreich(e)> 

ABDO 150 H 

ADDO 150 H 

ABDO 170 

; Druckausgabe : FOKE %ac9&6,8 

ADBO 188 s (464: 
ABD® 198 s 

ABOR 200 

ADaO 218 3 

ABBD B1HHHR 228 DEFRSX LD bce,tabrsx 
ABBS 210000 238 LD hl,kernal 
ABB& CDDIBC 248 CALL &bedi 
ABB? 3EC9 258 LD a,&c9 5 
ADOB 3200AB 248 LD (defrsx),a 
; Redefinition verhindern 

ABBE C9 278 RET 

**%*%* Zeile 228 : TABRSX=&ABOF 

ABBF BBRR 288 TABRSX DW table 
ABI11 CIRDOR 298 JP xref 

AB14 C35B0R8 308 JP dump 
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**%* Zeile 288 : TABLE=&AB17 


AB17 585245 318 TABLE DM "XRE" 

ABIA C6& 328 DB %ch ; "F"+&BQ 
ABIB 44554D 3380 DM "DUM" 

ABIE DO 348 DB &dB ; "P"+&BB 
ABIF 80 358 DB 8 

**** Zeile 2358 : KERNAL=&AB2B 

AB2a 36@ KERNAL DS 4 

na24 378 


*+** Zeile 298 : XREF=&AQ24 
AB24 SEBI 
AB2&6 320008 398 AUFRUF LD (prgken) ,a 


AB297 DF 


ADZA 38000 


AB2C C9 
AB2D 


388 XREF LD a,l 


408 RST &18 ; Aufruf mit Far Call, 
418 DW vektor ; da upper ROM enabled 
420 RET ;ı sein soll 

43B 


***%* Zeile 418 : VEKTOR=&ABZD 
AB2D B008 


ABZF FD 
ABED 


*%*%* Zeile 


ABZB ZEBR 
ABS2 18F2 


ABS4 
ADSs4 
;» ECPC 
ABS4 
; %ae7S 
AB34 
; kaes6 
AB34 
s &ff71 
ABS4 
; &d@7b 
ABS4 
; %dSdb 
AB>34 
; eff 


, 


448 VEKTOR DW start 
458 DE 253 ;5 LROM off / UROM on 
468 
3588 : DUMP=&ABSB 
478 DUMP LD a,d 


488 JR aufruf 
498 
588 

6128 464 664 


518 ALBAFC EQU XaeS58 

&ae58 zwischenspeicher fuer BASIC PC 
528 BASPC EQU kaeid 

&aeld Original BASIC PC 
530 TESBUC EQU %ff92 

&ff92 Test auf Buchstabe und UPPER 
548 SYNTER EQU dad? 

&dOda Syntax error ausgeben 
558 GTVPTR EQU %&d6197 

&döic get variablentabellepointer 
568 BADOBC EQU %e9b7 

&e9be durchlaufe Basicprogramm und springe jeweil 


s nach Adresse BC 
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Aa34 578 CHKBRK EQU %c472 

ı %«c43c „ %c475 check for Break 

AB34A 588 LNFEED EQU %c398 

; %c354e „ %c39b Line Feed ausgeben 

AB34 598 SKPCMD EQU %Xedfd 

; %ke943 „ Keaß2 skip command 

ABS4 &@B VAINIT EQU &dödec 

; &däb3 „ Kdbdef traegt Variable in die Var.Tab. ein 
AQ34 618 CHRGET EQU %&de2c 

; &dd35f „ %de3i holt naechstes Byte 
ABS34 628 CHRGOT EQU &de37 

; &dd4a „ %deiSc liest letztes Byte 

Au34 638 CHRNEX EQU %&de25 

; &dd37 „ %de2a prueft folgendes Byte 
AB34 64B CHKKOM EQU &de41 

; %&dd55 „ &de46 prueft auf Komma 

ABS4 658 PRINT EQU &c3aß ; &c356 „ &c3as 
AB34 668 PTLNNU EQU Kef44 

; &ee79 „ %ef49 print line number 

ABS4 67B VARFAC EQU %&fföc 

;s &f#f4b „ &fföc kopiere Variable in FAC 
ABS4 688 PRTFAC EQU &#2d5 


ı % 236 „ &#2da print FAC 
**%%* Zeile 398 : PRGKEN=&ABS4 


ABDS4 &98 PRGKEN DS 2 
ABS& 788 WRTADR DS 2 
ABS8 7ı8 


**** Zeile 448 : START=&ABSB 
AB3B ZSAZAAB 720 START LD a,(prgken) 


ABSB FEBB 738 CP ® ; Dump ? 
ABSD 28FE 748 JR zZ,weiter 
ABSF B1BB0R 758 LD bce,initva 
; alle Variablen eintragen beim 

AB42 CDBIEI 768 CALL badobc 


; BASIC Programm durchsuchen 

**#%* Zeile 748 : WEITER=&AB4S 

AB4S ZASBAE 778 WEITER LD hl, (albapc) 

ABAB Bb4l 788 LD b,%41 ; "A" Default Start 
ABAA BESA 798 LD c,&5a ; "Z" Default End 
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ABAC CD3S7DE 8080 CALL chrgot ; Ende ?? 

ABAF B7 818 OR a; wenn ja, 

ABSB Z8FE 828 JR z,anfang 

;s dann mit Defaultwerten beginnen 

ABS2 23 830 INC hl ; PC auf "'" 

ABSS3 CD25SDE 848 CALL chrnex 

; Test auf folgendes Zeichen 

ABS CO 858 DB &c® ; Zeichen muss "'" sein 
ABS7 7E 8658 VONVOR LD a,(hl) ; Buchstaben lesen 
ABS8 CDI2FF 8708 CALL tesbuc 

ABSB 3BFE 888 JR c,ok ; Buchstabe ist ok 


ABSD C3D7DB 898 ERROR JP synter 
**** Zeile 889 : DK=&ABAR 


ABO 47 988 DK LD b,a ; Buchstabe ist Startwert 
ABsi AF 918 LD c,a 5; und auch Defaultendwert 
ABs2 CD2CDE 928 CALL chrget 

AB65 FE2D 938 CP &2d ; "-" 77? 

AB67 ZBFE 948 JR nz ,fangan 

AB&7 CD2CDE 958 CALL chrget 

ABC CDI2ZFF 960 CALL tesbuc 

ABAF SBEC 978 JR nc,error 

; wenn kein Buchstabe 

AB71 Ar 980 LD c,a ;5 Buchstabe ist letzter 
AB72 CD2CDE 290 CALL chrget 

**#%* Zeile 940 : FANGAN=&AR7S 

AB7S ES 12898 FANGAN PUSH hl ; PC retten 

AB7& CDBRBBB 1910 CALL anfang 

AB77 Ei 1928 POP hl ; PC 

AB7A CDA41DE 18508 CALL chkkom ; pruefen auf Komma 
AQ7D 38D8 19840 JR c,vonvor 

ABT7F 2258AE 1850 LD (albapc),hl 

ABB2 C9 19068 RET 

AB83 19870 


***% Zeile 828 : ANFANG=&AB8S 
*%%** Zeile 18018 : ANFANG=&AB8S 


ABS3 79 1B80 ANFANG LD a,c ; Ende 
ABB4 978 1898 SUB b ; minus Anfang 
AB85S 38D6 11980 JR c,error 


; end<anf, dann Syntax Error 


B 


Iserweiterungen 


81 


1118 NEXBUC LD a,b 


; Variablen mit naechstem Buchstaben XREFen 


INC b ; fuer naechstes Mal 
PUSH bc ; erhoehen und retten 
CALL gtvptr 


; holt Zeigeradresse des Buchstabens 
GLEBUC LD a,(hl) ;z HL wird mit der 


AU87 78 

ABBB 94 1120 
ABB? CS 1130 
ABBA CD19D& 1148 
ABBD 7E 1158 
ABBE 253 1168 
ABBF 66 11780 
ABIB HF 1188 
AB91 BA 1190 
s wenn Differenz 
AB92 ZUBFE 1208 
;ı Variable mit dem 
AB94 Ci 1210 
;s Anfangsuchstaben 
AB9S 79 1220 
AB9& BB 12358 
AQ977 3BEE 1240 
;s noch nicht Ende, 
Aa97 C9 1250 
ADIA 1268 
*%%* Zeile 1208 
ABFA 09 

;s Var.tab.start+Differenz 
AB9B ES 1280 
; ist Adresse der 
ABSC CS 1298 
ABSD 23 1300 
ABIE 253 1318 
ABFF 7E 1320 
ABAB 23 1550 
ABA1ı FS 1340 
ABAZ EA7F 1358 


ist, 


INC hl ; Differenz vom Anfang der 
LD h,(hl) ; Variablentabelle zur 
LD l,a ; Variablen geladen 

OR h 


ist keine 


JR nz ‚namaus 


aktuellen 


POP bc 


vorhanden 


LD a,c ; aktuellen Stand (b) 
CP b; mit Ende (c) vergleichen 
JR nc ,nexbuc 


dann naechsten Buchstabe versuchen 


RET ;s sonst Fertig 


: NAMAUS=&ABIA 
1278 NAMAUS ADD hl,bce 


PUSH hl 


Verkettungsadresse 


AUSGA 


PUSH bc ; Var.tab.start retten 
INC hl ; Verkettung 

INC hl 5; ueberspringen 

LD a,(thl) ; Buchstaben lesen 
INC hl 

PUSH af 

AND &7#f 


;s Bit 7 fuer Ausgabe loeschen 


ABA4 


FE2® 


1368 


cp 32 


; Zahlen im Variablennamen ? 


ABA& 


; nein, 


SBFE 


1370 


dann alles klar 


JR nc,allkla 
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ABAB F620 1388 OR &28 ; Bit 5 bei Zahlen setzen 
**%* Zeile 1378 : ALLKLA=&ABAA 
ABAA CDABCS 1398 ALLKLA CALL print 


ABAD Fi 14908 POP af ; gelesener Wert 

ABAE 17 1418 RLA ; Test ob Bit 7 gesetzt 
ABAF 3BEE 1420 JR nc ,ausga 

; nein, dann weiter ausgeben 

ABB1 SE28 1438 LD a,%28 ; Leerzeichen 
ABBS CDABCS 1448 CALL print 

ABB&A 7E 1450 LD a,(hl) ; Typenkennziffer 
ABB7 23 1458 INC hl 

ABBB CöB1 1478 ADD a,l 

; Anzahl der Bytes = Typ fuer FAC 

ABBA CDaGBB 1480 CALL typtes 

ABBD FS 1490 PUSH af 

ABBE SAZSAAB 15008 LD a, (prgken) 

ABCI B7 1518 OR a 

AaC2 CABBBB 1528 JP z,fordum 

; Fortsetzung wenn DUMP 

AOCS Fi 15350 POP af 

ABCA Ci 1548 POP bc 

ARC7 B7 1550 OR a 

ABCB ED42 1568 SBC hl,bc ; Adresse des Var. 
ABCA 2236AB 1578 LD (wrtadr) ,hl ; wertese fuer 
ABCD CS 1588 PUSH bc 

;s spaeteren Vergleich speichern 

ABCE BIiBBBRB 1598 LD bc,suchva 

; Variablensuchroutine 

ABDI CDBIEF 1608 CALL badobc 


;s durchlaeuft BASIC Programm 
ABDA4 CD72C4 1618 SOFERT CALL chkbrk ; Break Test 


ABD7 CD9ESC3 1628 CALL Infeed ; Line Feed 

ABDA Ci 1638 POP bc ; anf/end Buchstaben 

ABDB Ei 16848 POP hl ; Verkettungsadresse 

ABDC 18AF 16858 JR glebuc 

s naechste Variable mit gleichem Buchstaben 

ABDE 1668 

ABDE 16780 ; Varaiableninitroutine 


***%* Zeile 758 : INITVA=&ABDE 
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ABDE ES 1688 INITVA PUSH hl ; PC 

ABUDF CDFDE? 1698 CALL skpcemd 

; veberliest einen Befehl 

ABE2 Di 1700 POP de 

ABE3 FEB2 1718 CP 2 ; Ende ? 

ABES D8 1728 RET c ; ja, naechste Zeile 
ABE& FEBE 1730 CP &e ; Variable ?? 
ABEB SOF4 1748 JR nc,initva 

; nein, dann Weitersuchen 

ABEA FEB7 1758 cP 7 

ABEC 28F@ 1768 JR z,initva 

ABEE FEBB 1770 CP 8 

ABFBO 2BEC 1780 JR z,initva 

ABF2 EB 17908 EX de,hl 

ABUFS DS 1808 PUSH de ; PC nach skip 
ABF4 CDZCDE 1818 CALL chrget 

ABF7 CDECDL 1828 CALL vainit 

;s Namens Suche, Variable eintragen 

ABFA Ei 18350 POP hl 

ABFB 18E1 1840 JR initva 

ABFD 1850 

ABFD 1848 ; Variablensuchroutine 
*+#%* Zeile 1598 : SUCHVA=&ABFD 

ABFD ES 1878 SUCHVA PUSH h1 ; PC 

ABFE CDFDE? 1888 CALL skpcemd 

;ı veberliest einen Befehl 

A1lBi DI 1890 POP de 

A182 FEBO2 1988 CP 2 ; Ende ? 

A194 DB 1918 RET c ; ja, naechste Zeile 
A1Q5 FEBE 1928 CP &e ; Variable ?? 
A197 30F4 1930 JR nc,suchva 

; nein, dann Weitersuchen 

A109 FEBT7 1948 cP 7 

A1BB 28F8 1958 JR z,suchva ; nein 
AGD FEOB 1968 cP 8 

AIBF 28EC 1970 JR z,suchva 

Al1ll EB 1980 EX de,hl 

A112 DS 1998 PUSH de 


A113 CD2CDE 2988 CALL chrget 
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INC 
LD 
INC 
LD 
LD 


OR 
SBC 
POP 
JR 


dann weitersuchen 


PUSH 
LD 
LD 
INC 
LD 
LD 
CALL 
LD 
CALL 
POF 
JR 


hl ; HL auf Startadresse Var 
e, (hl) 

hl 

d,(hl) 

hl,(wrtadr) 


a 
hl,de ; Adresse vergleichen 
hl ; FC nach Skip 


nz ,suchva 


hl ; Adr.Typ Frog. 

hl,(baspc) ; BASIC FC lesen 
a,(hl) 

hl 

h,chl) 

l,a 

ptinnu ; Print Line Number HL 
a,%28 

print 

hl 


suchva 


: FORDUM=&A136 


FORDUM 


NESTCH 


Alld 23 2818 
A117 SE 2928 
Al1l8 23 2058 
A119 56 2948 
AllA ZAS6AB 2050 
; mit der aktuellen 
Al1lD B7 2868 
Al1E EDS2 2078 
A120 Ei 2080 
A121 28DA 2098 
;s ungleich, 

A123 ES 2108 
A124 ZAIDAE 2118 
A127 7E 2120 
A128 23 21380 
A129 66 2148 
A1lZA 6F 2158 
A1ZB CD44EF 2168 
AIZE SE2® 2178 
A13B CDAUCS 2180 
A1SS Ei 2190 
A134 18C7 2208 
A1Sö 2218 
*+*%* Zeile 1528 
A136 Fi 2220 
A137 FEBS3 2230 
A139 2BFE 2240 
A1SB 46 2258 
A1ISC 97 22680 
A1SD BB 2278 
AISE 28FE 2288 
A148 ES 2298 
A141 23 2308 
A142 7E 25180 
A145 23 2320 
A144 66 2338 
A145 6F 2348 
A146 7E 2558 
A147 23 2368 


POP 
CP 
JR 
LD 
SUB 
CP 
JR 
PUSH 
INC 
LD 
INC 
LD 
LD 
LD 
INC 


af ; FORtstzung DUMp 

3 

nz ‚,nostri 

b,(hl) ; Laenge String 
a; Akku loeschen 

b ; Laenge ist B ?7?? 
z,skip ; dann nichts ausgeben 
hl ; Descriptoradresse 
hl 

a,(hl) ; low Byte 

hl 

h,(hl) ; high Byte 

1,a 

a,(hl) 

hl 


85 


Befehlserweiterungen 

A148 CDAUCS 2378 CALL print 

A14B 18F97 2388 DJNZ nestch 

A1l4D Ei 23978 POP hl 

*#%%* Zeile 2288 : SKIP=%&A14E 

A1I4E SEBS 24088 SKIP LD a,3 ;5 Laenge Descriptor 
A1S®B 18FE 2418 JR skval 

***%* Zeile 2248 : NOSTRI=&A152 

A1IS2 ES 2428 NOSTRI PUSH hl 


A153 CDöCFF 24530 CALL VARFAC 
; Typ setzen und VAR (HL) -> FAC 
A1S6 Ei 2448 POP hl 
A157 CDDSF2 2458 
#**%* Zeile 2418 : SKVAL=&A1SA 


CALL prtfac ; print FAC 


A1ISA C3SDAAB 2468 SKVAL JP sofert 

A1SD 2478 

**+* Zeile 1488 : TYPTES=&A1SD 

A1SD FS5 2488 TYPTES PUSH af ; gibt der Type 
AISE ES 2498 PUSH hl 

;5 entsprechendes Kenzeichen aus 

AISF E6B7 2508 AND 7 ; nur Bit 8-2 betrachten 
A161 EE27 2518 XOR %27 

A163 FE22 2528 CP &22 

A165 28FE 2538 JR nz ,oki 

A167 D6B1 2540 SUB 1 

*#*%%* Zeile 2538 : OK1=%&A169 

A169 CDABCS3 2558 OKI CALL print 

A1l&C 3E28 2568 LD a,&20 ; " " 

A1&dE CDAUCS 2578 CALL print 

A171 Ei 2580 POP hl 

A172 Fi 2598 FOP af 

A173 C9 2608 RET 


Programm :xdum 
Start : &AQBO 
Laenge : 8174 
@ Fehler 
Variablentabelle : 

DEFRSX ABBB TABRSX ABBF TABLE AB17 
XREF AB24 AUFRUF AB26&4 VEKTOR ABZD 


Ende : &A173 


DUMP 


KERNAL AB2B 


ABSO 
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ALBAFC 
GTVFTR 
SKFCMD 
CHRNEX 
VARFAC 
START 
OK 
GLEBUC 
SOFERT 
NESTCH 
TYPTES 


AES8B 
D617 
EIFD 
DE2S 
FFöC 
ABSB 
ADD 
ABBD 
ABD4 
A14& 
A1SD 


BASPC 
BADOBC 
VAINIT 
CHKKOM 
FRTFAC 
WEITER 
FANGAN 
NAMAUS 
INITVA 
SKIP 
OK1 


AE1D 
E9B? 
D&AEC 
DE41 
F2DS 
AB4S 
AQ7S 
ABFA 
ABDE 
A14E 
A169 


TESBUC 
CHKBERK 
CHRGET 
PRINT 

PRGKEN 
VONVOR 
ANFANG 
AUSGA 

SUCHVA 
NOSTRI 


FF92 
C472 
DE2C 
C3AB 
ABS4 
ABS? 
AUBS 
ABYF 
AUFD 
A152 


SYNTER 
LNFEED 
CHRGOT 
FTLNNU 
WRTADR 
ERROR 
NEXBUC 
ALLKLA 
FORDUM 
SKVAL . 


DBD7 
C3978 
DES? 
EF44 
ABS& 
ABSD 
ABBT7 
ABAA 
A1S5& 
A1SA 
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Eine Eigenschaft der Variablentabelle haben wir noch nicht be- 
sprochen. 


Auch Funktionen, die mit DEF FN definiert sind, sind in der 
Variablentabelle abgespeichert. Das Typenkennzeichen einer 
Funktionsdefinition ist &41, &42 oder &44. D.h., Bit 6 steht für 
"Funktion", das Low Byte (1, 2 oder 4) gibt in der bekannten 
Weise an, von welchem Typ das Ergebnis der Funktion ist. 


Alle Funktionsnamen sind untereinander über Verkettungsadres- 

‘sen verbunden. An Adresse &AE04/5 (664/6128: &ADEB/C) 
steht die Adresse des ersten Listenelementes. Der "Wert" eines 
Funktionsnamens besteht aus 2 Bytes, die auf die Stelle im 
BASIC-Programm zeigen, an der die Funktionsdefinition steht. 


Die RAM-Adressen des ersten Elementes für jeden Anfangs- 
buchstaben stehen an Adresen &ADDO bis &AE03 (für 
664/6128: &ADB7 bis &ADEA), wobei für jeden Buchstaben 2 
Bytes benutzt werden. Beachten Sie bei der Benutzung dieser 
Pointer immer, das Sie nicht die Adresse selbst, sondern die 
Differenz der Adresse zur Startadresse der Variablentabelle 
&AE85/6 (664/6128: &AE68/9) angeben. 


9.3 XREF (Cross REFerence) 


Die Syntax des XREF-Befehls ist gleich der des DUMP Befehls. 
Da große Programmteile sowohl von DUMP als auch vom XREF 
benutzt werden, wurden sie gemeinsam in einem Programm ver- 
wirklicht. Wie bei DUMP werden durch die Schleifen NEXBUC 
und GLEBUC die erforderlichen Variablen aus der Tabelle her- 
ausgesucht. 


Ganz am Anfang des Programms benutzt XREF eine sehr inter- 
essante Systemroutine, um alle Variablen in die Variablentabelle 
einzutragen. An Adresse &E8FF (6128: &E9B9 / 664: &EIBE) 
steht die Routine BADOBC, die ein BASIC-Programm zeilen- 
weise durchläuft, und als Besonderheit, nachdem der Anfang 
einer Zeile gefunden ist, eine beliebige andere Routine aufruft, 
die dann die Zeile untersuchen kann o.ä. Die Adresse der 
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Routine, die die Untersuchung durchführen soll, wird bei Auf- 
ruf von BADOBC im BC-Register übergeben. Im XREF- 
Programm ist das einmal die Adresse der INITVA Routine, 
später noch einmal die der SUCHVA Routine. 


Um die SUCHVA-Routine zu verstehen, müssen wir uns mit 
dem Aufbau eines BASIC-Programms, speziell mit der Ablage 
von Variablen im Programm, beschäftigen. 


Vor jeder Variablen steht eine Kennziffer. Die Kennziffer gibt 
an, welchen Typs die Variable ist, und ob das Typenkennzeichen 
(%, $ oder !) mit angegeben wurde. Dabei gilt: 


02 integer mit % 
03 string mit $ 
04 real mit! 

OB Integer 

0C string 

0Dreal 


Auf die Kennziffer folgt die Differenz der Adresse der 
Variablen in der Tabelle zur Startadresse der Tabelle. 

Auf diesen Adressenzeiger folgt direkt der Variablenname, 
wobei wie üblich, das Bit 7 des letzten Buchstaben gesetzt ist. 


SUCHVA prüft zuerst, ob es sich um eine der Kennziffern han- 
delt, wenn ja, wird der Name verglichen, und schließlich die 
Kennziffer umgewandelt und auch verglichen. Bei Übereinstim- 
mung wird die BASIC Zeilennummer der aktuellen Zeile ausge- 
geben. 


Für Programmierer, die nicht den Assembler aus dem Buch 
"Maschinensprache mit den CPCs" oder einen anderen besitzen, 
befindet sich im folgenden noch ein BASIC-Lader für das 
Programm. 


Die Einbindung der neuen Befehle mit RSX erfolgt durch 
CALL &A000. Danach stehen DUMP und XREF im besproche- 
nen Format zur Verfügung. 
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12 " XREF und DUMP fuer 464 

28 " RSX Einbindung mit call &kadRd 
38 FOR i=&ABUORB TO &A173 

48 READ at: w=VALC"&H"+a$) 

SQ s=s+tw:POKE i,w:NEXT 

62 IF s<> 49982 THEN PRINT"Fehler in Datas":END 
78 FPRINT"ok!":END 

88 DATA 81,0F,AB,21,28,AB,CD,Di 
98 DATA BC,3E,C9,32,88,AQ,C9,17 
188 DATA AQ,C3,24,AB,C3,58,AQ,58 
118 DATA 52,45,C06,44,55,4D,DQ3,B8 
128 DATA FC,„As,@F,AB,SE,21,32,34 
138 DATA AB,DF,2D,AB,C9,38,AQ,FD 
1408 DATA 35E,20,18,F2,81,D8,5F,23 
150 DATA 35A,34,AB,FE,29,28,06,01 
168 DATA DE,AB,CD,FF,E8,2A,75,AE 
178 DATA 868,41,0E,SA,CD,4A,DD,B7 
188 DATA 28,31,23,CD,37,DD,C@,7E 
198 DATA CD,71,FF,38,83,C5,7B,D& 
2a@ DATA 47,4F,CD,S3SF,DD,FE,2D,28 
218 DATA 8C,CD,3F,DD,CD,71,FF,3@ 
228 DATA EC,4F,CD,SF,DD,ES,CD,83 
238 DATA AB,E1,CD,55,DD,38,D8,22 
248 DATA 75,AE,C9,79,90,38,D6,78 
258 DATA B4,C5,CD,DB,DS,7E,23,66 


2608 
278 
288 
298 
>88 
318 
328 
338 
3548 
358 
368 
378 
388 
398 
428 
4108 
428 
438 
448 
450 
468 
470 
488 
498 
588 
518 
528 
338 
548 


18 
28 
38 
40 
so 
68 
78 
88 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


6F ,B4,28,86,C1,79,B8,3® 
EE,C9,89,E5,05,23,23,7E 
23,F5,E6,7F,FE,28,38,82 
F6,28,CD,56,C3,F1,17,3@ 
EE,S3E,28,CD,56,C03,7E,23 
C6,81,CD,5D,A1,F5,3A,34 
AB,B7,CA,36,A1,F1,C1,B7 
ED,42,22,36,AB,C5,81,FD 
AB,CD,FF,E8,CD,3C,C4,CD 
4E,C3,C1,E1,18,AF,ES,CD 
43,E9,D1,FE,@2,D8,FE,BE 
390,F4,FE,87,28,F@,FE,88 
28,EC,EB,DS,CD,3F,DD,CD 
B3,D6,E1,18,E1,ES,CD,43 
E9,D1,FE,82,D8,FE,BE,3® 
F4,FE,87,28,F0,FE,28,28 
EC,EB,D5,CD,3F,DD,23,5E 
23,56,2A,36,AB,B7,ED,52 
E1,28,DA,ES,2A,36,AE,7E 
23,66,6F,CD,79,EE,3E,2® 
CD,56,C3,E1,18,C7,F1,FE 
03,28,17,46,97,B8,28,0E 
ES,23,7E,23,66,6F ,7E,23 
CD,56,C3,18,F9,E1,3E,83 
18,08,E5,CD,4B,FF,E1,CD 
36,F2,C3,D4,AQ,F5,E5,E6 
07,EE,27,FE,22,28,82,D6 
81,CD,56,C3,3E,28,CD,56 
C3,E1,F1,C9 


XREF und DUMP fuer 664 
RSX Einbindung mit call &aQdd8 


FOR i=&ABUBRB TO A173 
READ a$:w=VAL ("&H"+a$) 
s=s+tw:POKE i ,w:NEXT 


P 


Ti 


Tricks B 


IF s<> 58388 THEN PRINT"Fehler in Datas":END 


PRINT"ok!"zEND 


DATA @1,BF,AQ,21,28,AB,CD,Di 


II 
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98 DATA BC,3E,C9,32,88,AB,C9,17 
100 DATA AQ,C3,24,AB,C3,38,AQ,58 
11@ DATA 52,45,C6,44,55,4D,DB,08 
120 DATA 38,AB,3E,@D,3E,81,32,34 
138 DATA AQ,DF,2D,AB,C9,38,AB,FD 
148 DATA 3E,08,18,F2,E1,D9,18,D8 
158 DATA 3A,34,AB,FE,80,28,06,B1 
160 DATA DE,AB,CD,BE,E9,2A,58,AE 
170 DATA 06,41,0E,5A,CD,3C,DE,B7 
180 DATA 28,31,23,CD,2A,DE,CB,7E 
198 DATA CD,92,FF,38,83,C3,DA,D® 
200 DATA 47,4F,CD,31,DE,FE,2D,2® 
210 DATA 8C,CD,31,DE,CD,92,FF,3@ 
228 DATA EC,4F,CD,31,DE,ES,CD,83 
230 DATA AB,E1,CD,46,DE,38,D8,22 
248 DATA 58,AE,C9,79,90,38,D6,78 
250 DATA 04,C5,CD,1C,D6,7E,23,66 
260 DATA 6F ,B4,28,86,C1,79,B8,38 
270 DATA EE,C9,89,E5,C5,23,23,7E 
288 DATA 23,F5,E6,7F,FE,20,30,82 
290 DATA F6,28,CD,A3,C3,F1,17,30 
308 DATA EE,3E,280,CD,A3,C3,7E,23 
310 DATA C6,01,CD,5D,A1,F5,3A,34 
320 DATA AB,B7,CA,36,A1,F1,C1,B7 
330 DATA ED;42,22,36,AQ,C5,@1,FD 
348 DATA AB,CD,BE,E9,CD,75,C4,CD 
350 DATA 9B,C3,C1,E1,18,AF,ES,CD 
360 DATA @2,EA,D1,FE,82,D8,FE,BE 
370 DATA 38,F4,FE,87,28,F0,FE,88 
388 DATA 28,EC,EB,D5,CD,31,DE,CD 
390 DATA EF,D6,E1,18,E1,E5,CD,82 
488 DATA EA,D1,FE,82,D8,FE,BE,3@ 
418 DATA F4,FE,87,28,F@,FE,88,28 
420 DATA EC,EB,D5,CD,31,DE,23,5E 
438 DATA 23,56,2A,36,AB,B7,ED,52 
448 DATA E1,20,DA,ES,2A,1D,AE,7E 
458 DATA 23,66,6F,CD,49,EF,3E,28 
460 DATA CD,A3,C3,E1,18,C7,Fi1,FE 
478 DATA 03,28,17,46,97,B8,28,BE 


480 
498 
SsoB 
518 
528 
3358 
540 


18 
28 
38 
48 
58 
68 
70 
88 
978 
190 
118 
120 
138 
148 
158 
168 
170 
180 
190 
200 
218 
220 
238 
240 
258 
268 
278 
280 
298 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


ES,23,7E,23,66,6F ,7E,23 
CD,A3,C3,18,F9,E1,3E,83 
18,808,E5,CD,6C,FF,E1,CD 
DA,F2,C3,D4,AB,F5,ES,E6 
07,EE,27,FE,22,20,82,D6 
01,CD,A3,C3,3E,20,CD,A3 
C3,E1,F1,C9 


XREF und DUMP fuer 6128 
" RSX Einbindung mit call %aBRB 
FOR i=&ABBR TO &A173 
READ a$:w=VAL("&H"+a$) 
s=s+tw:POKE i,„w:NEXT 
IF s<> 5®688 THEN PRINT"Fehler in Datas":END 
PRINT"ok!"zEND 
DATA 81,8F,AB,21,28,AB,CD,Di 
DATA BC,3E,C9,32,80,AB,C9,17 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


AB,C3,24,AB,C3,380,AB,58 
52,45,C6,44,55,4D,DO,08 
20, ABD,BF,AB,3E,01,32,34 
AB,DF,2D,AB,C9,38,AQ,FD 
3E,08,18,F2,81,D0,D1,28 
3A,34,AQd,FE,88,28,06,01 
DE,AB,CD,B9,E9,2A,58,AE 
06,41,0E,5A,CD,37,DE,B7 
28,31,23,CD,25,DE,C®,7E 
CD,92,FF,38,83,C3,D7,D® 
47,4F ,CD,2C,DE,FE,2D,2@ 
0C,CD,2C,DE,CD,92,FF,3® 
EC,4F,CD,2C,DE,ES,CD,83 
AQ,E1,CD,41,DE,38,D8,22 
58,AE,C9,79,90,38,D6,78 
84,C5,CD,19,D6,7E,23,66 
6F ,B4,28,86,C1,79,B8,38 
EE,C9,09,E5,C05,23,23,7E 
23,F5,E6,7F,FE,28,30,82 
F6,28,CD,AB,C3,F1,17,30 


P 


Ti 
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308 
318 
328 
338 
348 
358 
36B 
378 
380 
392 
408 
418 
420 
438 
440 
458 
460 
4708 
488 
498 
5o2 
518 
522 
558 
540 


rweiterungen 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


EE,3E,28,CD,AB,C3,7E,23 
C6,81,CD,5D,A1,F5,3A,34 
AQ,B7,CA,36,A1,F1,C1,B7 
ED,42,22,36,AB,C5,B1,FD 
AQ,CD,B9,E9,CD,72,C4,CD 
98,C3,C1,E1,18,AF,ES,CD 
FD,E9,D1,FE,82,D8,FE,BE 
3@,F4,FE,87,28,F@,FE,28 
28,EC,EB,DS,CD,2C,DE,CD 
EC,D6,E1,18,E1,E5,CD,FD 
E9,D1,FE,82,D8,FE,BE,S® 
F4,FE,07,28,F@,FE,28,28 
EC,EB,D5,CD,2C,DE,23,5E 
23,56, 2A,36,AQ,B7,ED,52 
E1,20,DA,ES,2A,1D,AE,7E 
23,66,6F,CD,44,EF,3E,2® 
CD,AQ,C3,E1,18,C7,F1,FE 
03,28,17,46,97,B8,28,0E 
E5,23,7E,23,66,6F ,7E,23 
CD,AQ,C3,10,F9,E1,3E,83 
18,08,E5,CD,6C,FF,Ei1,CD 
D5,F2,C3,D4,AQd,FS,ES,E6 
07 ,EE,27,FE,22,20,02,D6 
81,CD,AB,C3,3E,28,CD,A® 
C3,E1,F1,C9 
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10. BASIC-Zeile vom BASIC aus erzeugen 


Ein Befehl, der bisher in allen gängigen BASIC-Dialekten fehlt, 
ist der zum Erzeugen einer BASIC-Zeile vom Programm aus. 


Dabei ist es gerade dieser Befehl, der einige vollkommen neue 
Aspekte in die BASIC-Programmierung bringt. 


Gibt es einen Befehl, bei dem es vom Programm aus möglich ist, 
Programmzeilen zu erzeugen? 


Wenn das möglich ist, liegt der Gedanke an Programme sehr 
nahe, die ihrerseits Programme erstellen, wobei die so erzeugten 
Programme wiederum Programme erzeugen usw. Wozu lernt man 
denn überhaupt noch das Programmieren, wenn es sowieso bald 
von Computern erledigt wird? 


Soweit ist es glücklicherweise nocht nicht gekommen. Dennoch 
bietet der "Programmerzeugungsbefehl" ansatzweise in diesem 
Sinne hochinteressante Möglichkeiten. Doch wenden wir uns zu- 
nächst einmal dem Befehl selbst zu. 


Bei der Eingabe von BASIC-Zeilen im Direktmodus werden 
diese quasi als String in einem Puffer gespeichert bis RETURN 
eingegeben wird. Danach wird versucht, den String als BASIC- 
Zeile (erkennbar an der vorn stehenden Zeilennummer!) zu in- 
terpretieren. Wenn das funktioniert, wird der String in das in- 
terne BASIC-Zeilenformat umgewandelt. Dabei werden z.B. er- 
kannte Befehlswörter in Tokens umgewandelt und dann in dieser 
Kurzform gespeichert. Schließlich wird die so übersetzte BASIC- 
Zeile anhand ihrer Zeilennummer in das vorhandene Programm 
eingefügt. Dazu werden vorher alle Zeilen mit größerer Nummer 
im Speicher um das entsprechende Stück nach oben verschoben. 


Um unsere Idee zu verwirklichen, benutzen wir dieselben 
Routinen, die beim oben beschriebenen Vorgang vom Interpreter 
benutzt werden. Wir brauchen lediglich vom Anwender die 
Adresse des Strings, der die zu erzeugende Zeile enthält, mit 
@Stringvariable an das Programm zu übergeben. 
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Bei der Übergabe von nur einem Wert steht dieser nach Aufruf 
mit CALL oder auch bei RSX-Erweiterungen im DE-Register 
zur Verfügung. DE enthält also die Stringdescriptoradresse des 
umzuwandelnden Strings. Nach dem Überlesen der Stringlänge 
im Stringdescriptor wird die Stringadresse gelesen und ins HL- 
Register geladen. Mit der CHRSKP-Routine werden evtl. vor- 
handene Leerzeichen und Cursorbewegungszeichen (HT und LF) 
überlesen. Wenn kein Nullbyte gefunden wurde, wird mit 
- TESTER geprüft, ob am Anfang der Zeile eine Zeilennummer 
steht. Wenn ja, wird mit ASSEMB die Zeile übersetzt und ein- 
gefügt. Dabei wird das Ende der Zeile anhand von Nullbytes 
erkannt. Im folgenden steht das Assemblerlisting und darauf- 
folgend der BASIC-Lader des eben beschriebenen Programms. 
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ABBR 18 ;s liner 

ABaB 28 ; erzeugt BASIC Zeilen 

ABBD 38 ; 1. im Direktmodus 

ABBB 48 ; 2. im Frogramm, wenn 

ABBO 58 ; Zeilenno. > als aktuelle 
ABBB 68 ;s a$ = Zeile im ASCII- 

ABOO 708 ; Code, Ende = Nullbyte 
ABBO 808 ; Format : call %aBd9d,e@a$ 
ABBO 98 

ABB 198 ORG &aßao 

ABBO 118 

H CPC 6128 5; 464 „ 664 

ADUD 128 CHRSKP EQU &de4d ; %ddbi ,„ &de52 

ADBO 138 TESTER EQU k&eecf ; &eed4 ,„ %eed4 

ABBO 148 ASSEMB EQU %Xe7a5 ; %eböcd „ %e7aa 

ABBB DF 158 RST %&18 ; Far Call 

ABBI BROD 168 DW vektor ; da das BASIC ROM 
ABBS C9 170 RET ; eingeschaltet sein muss 
**** Zeile 168 : VEKTOR=&ABO4 

ABB BaaD 188 VEKTOR DW start 

ABD& FD 198 DB 255 ; low ROM off, upp ROM on 
***%* Zeile 188 : START=&ABO7 

ARB7 EB 288 START EX de,hi 

; vebergebene Adresse nach HL 

ABBB 23 218 INC hl ; Stringlaenge ueberlesen 
ABB? SE 220 LD e,(hl) ; Lo Byte Stringadresse 
ABBA 23 258 INC hl 

ABBB 56 240 LD d,(nl) ; Hi Byte Stringadresse 
ABBC EB 250 EX de,hl ; Stringadresse nach HL 
ABBD CD4A4DDE 268 CALL chrskp 

ABIBO B7 270 OR a 

AB11 C8 288 RET z 

AB12 CDCFEE 298 CALL tester 

AB1S DB 308 RET nc 

AB16 CDASE7 318 CALL assemb 


; Zeile uebersetzen und einfuegen; HL muss auf erstes Byte der 
ASCII Zeile zeigen 
ABI? C97 328 RET ;s Fertig !!! 
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Programm :liner 

Start : &ARBQD Ende : %AB1? 

Laenge : BB1A 

BB Fehler 

Variablentabelle : 

CHRSKFP DE4D TESTER EECF A ASSEMB E7AS VEKTOR ABB4A 
START AUQ7 


18 REM BASIC Lader fuer Liner 

28 FOR i=&ABUBB TO %AB19 

38 READ at:w=VAL("&H"+a$) 

4D s=s+tw:FOKE i,w:NEXT 

Sa IF si> 4275 THEN FPRINT"Fehler in Datas":END 
68 '464: IF si> 4123 THEN .„..... 
78 "564: IF s<i> 4290 THEN ..... 
88 PRINT"ok!":END 

98 DATA DF,84,AQ,C9,807,AB,FD,EB 
188 DATA 23,5E,23,56,EB,CD,4D,DE 
118 "b6bAz..yeeygeeygeeyeenge. 392,DE 
128 DATA B7,C8,CD,CF,EE,D®,CD,AS 
1308 "4642... ,..3-..,B4,EE,..,..,c6 
148 "SbA:..ye.9..,7DA4,EE,..,..,AA 
15B DATA E7,C9 

168 '464:E6,C7 

178 '664:E7,C9 
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Zur Demonstration der Funktionsweise des Befehls folgt hier ein 
kleines Programm. 


10 MEMORY &9FFF: REM Ist Liner geladen? 

20 ZEINU=100 

30 2$=STR$CZEINU)+"REM Dies ist die Zeile"+STR$CZEINU) 
40 Z$=2$+CHR$(0): REM Endekennzeichen 

50 CALL &A000,22$ 

60 ZEINU=ZEINU+10 

70 IF ZEINU<210 THEN 30 

80 2$=STR$CZEINU)+"LIST"+CHRSCO) 

90 CALL &A000,92$ 


Folgende Einschränkungen bestehen für die Benutzung des Pro- 
gramms: 


- Die Zeilennummer der zu erzeugenden Zeile muß 
größer als die Zeilennummer sein, in der der jewei- 
lige CALL-Befehl erfolgt. 


- Der Befehl darf nicht im Inneren einer FOR- 
NEXT-Schleife oder WHILE-WEND-Schleife stehen. 


Diese Einschränkungen sind unbedingt zu berücksichtigen, da 
sonst die Programmausführung nach CALL nicht an die richtige 
Stelle zurückfindet und/oder Variablen nicht wiedergefunden 
werden. Die Ursache dafür ist die Verschiebung des BASIC- 
Programmes für das Einfügen der neuen Zeile. 


Die einfachste Anwendung für den Befehl ist sicherlich das Er- 
zeugen von DATA-Zeilen für z.B. eine Dateiverwaltung. Mit 
Hilfe des Zeilenerzeugers können die Daten direkt im Programm 
gespeichert werden. 


Im Buch "Maschinensprache für 464, 664, 6128" von DATA 
BECKER finden Sie ein Programm, das den Befehl zum auto- 
matischen Erzeugen eines BASIC-Laders aus den im Speicher 
befindlichen Codes verwendet. Eine professionelle Anwendung 
des Befehls bzw. des dahinterstehenden Prinzips könnte so aus- 
sehen: 
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Eine Softwarefirma vertreibt Buchhaltungsprogramme. Um nun 
nicht für jeden Kunden das Programm auf die jeweils spezi- 
fischen Bedürfnisse zugeschnitten umschreiben zu müssen, wird 
ein Softwareentwicklungsprogramm geschrieben, das alle 
Möglichkeiten der Anpassung vorsieht. Nach der Eingabe be- 
sonderer Wünsche erzeugt das Entwicklungssystem ein weit- 
gehend individuell für den jeweiligen Fall zugeschnittenes 
Programm. 
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11. Grafik-Hardcopy 


Damit Sie die mit dem 3-D-Funktionsplotter erstellten Zeich- 
nungen auch auf das Papier bringen können, stellen wir Ihnen 
nun noch ein Hardcopy Programm vor. Das Programm läuft 
ohne Änderung auf dem Drucker EPSON FX-80 und 
Kompatiblen. Zur Anpassung an andere Druckertypen muß nur 
die Steuersequenz, die den Drucker auf Grafikmodus schaltet, 
geändert werden, vorausgesetzt, daß ein 8-Punkt Bitmustermo- 
dus existiert. 


Für die Hardcopy wird direkt der Video-RAM des Schneiders 
von Adresse &C000 - &FFFF im Modus 2 ausgelesen. Der Bild- 
schirmspeicher ist beim CPC auf die bekannte, etwas merkwür- 
dige Art und Weise aufgebaut. Grundsätzlich gilt aber, wie bei 
fast allen anderen Rechnern, daß ein Byte im Bildschirmspeicher 
auf dem Bildschirm einer gewissen Anzahl (im MODE 2 sind es 
8) von Punkten entspricht. Das Problem besteht nun darin, daß 
der Drucker jeweils 8 untereinander und nicht, wie beim Bild- 
schirmspeicher, nebeneinanderliegende Punkte druckt. 


Betrachten wir als Beispiel das folgende Sonderzeichen. Dieses 
Zeichen soll auf dem Drucker ausgegeben werden. 


Bildschirm- 

speichercodes: 
00009009009 = 00 
0010109009009 = 40 
010900109 = 68 
1011109010 = 186 
010001009 = 68 
0071010909009 = 40 
0001090009009 = 16 
1 Sb Ar SR EE SEE 50 = 254 

Druckercodes: 17 41 85 19 85 41 17 0 
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Das Zeichen wird durch 


MODE 2 

FOR 1=&C000 TO &F8000 STEP &800 
POKE LA:NEXT 

DATA 16,40,68,16,68,40,16,254 


auf dem Bildschirm ausgegeben. 


Für die Druckerausgabe müssen die spaltenweise gebildeten 
Werte gesendet werden. 


PRINT#8, CHR$(27),"*"CHR$(1);CHR$(8);CHR$(0); 
FOR 1=0 TO 7:READ A 

PRINT#8, CHR$(A);: NEXT 

DATA 17,41,85,19,85,41,17,0 


Der erste PRINT#8-Befehl ist die Steuercodefolge für den 
EPSON FX-80, die die Ausgabe von 8 Grafikcodes im Bitmus- 
termodus ankündigt. 


Zum Jahresende 1985 wird das "Große Epson Druckerbuch" von 
DATA BECKER erscheinen, in dem alle Steuerbefehle der 
meisten EPSON-Drucker und vieles mehr beschrieben werden. 


Das Hardcopy-Programm muß nun den gesamten Bildschirm- 
speicher Schritt für Schritt umwandeln, um die "Spaltenwerte" 
senden zu können. Da das im BASIC einige Stunden dauern 
kann, ist hier nur eine Lösung in Maschinensprache sinnvoll. 


Das Harddcopy-Programm benutzt einige sehr nützliche System- 
routinen. Wir werden es im folgenden kurz beschreiben. 


Beim Schneider ist die Hardcopy ohne hardwaremäßige Ände- 
rungen etwas schwieriger als üblich. Der Grund dafür ist, daß 
die Schneider-Entwickler zwar eine Centronics-Schnittstelle für 
den Drucker vorgesehen haben, unverständlicherweise aber nur 
7 Daten-Bit-Leitungen belegt haben. Normalerweise sind dies 
natürlich 8 Leitungen, da ein Byte ja 8 Bits hat und der Drucker 
byteweise angesteuert wird. 
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Solange man sich nur mit dem Druck von Texten und Listings 
beschäftigt, ist diese Einschränkung auch nicht weiter störend. 
Bei der Hardcopy bewirkt das fehlende achte Bit jedoch einen 
weißen Strich im erzeugten Bild, der alle acht Punktzeilen 
auftritt. 


Das Programm muß dieses Manko also ausgleichen indem, 
immer nur sieben Punktzeilen gedruckt werden und auch nur 
ein Zeilenvorschub von sieben Punktbreiten erzeugt wird. Da 
aber der Bildschirmspeicher des Schneiders in vertikaler 
Richtung in Einheiten zu je acht Byte organisiert ist und da 
auch jedes Zeichen acht Bit hoch ist, sind etwas umfangreichere 
Berechnungen erforderlich, um jeweils nur sieben Bits in einer 
annehmbaren Geschwindigkeit zu drucken. 


Der Bildschirm besitzt 25 Zeilen zu je acht Punktreihen, also 
200 Punktreihen. Werden je sieben Punktreihen abgearbeitet, so 
müssen 28*7 Punktreihen gesendet werden, wobei das Problem 
auftritt, daß am Ende noch 4 (200-28*7) Punktreihen übrig sind. 
Diese müssen gesondert behandelt werden. Weiterhin hat der 
Bildschirm in horizontaler Richtung 640=&280 Punkte. 


Dem FX-80 (und kompatible) wird beim Einschalten des Bild- 
schirmmodus mitgeteilt, wieviele Grafikbytes empfangen werden 
sollen. Das Low-Byte von &280 ist &80. Bei diesem Byte ist das 
achte Bit gesetzt, also kann dieser Wert nicht gesendet werden. 
Um dieses Problem ohne großen Mehraufwand lösen zu können, 
werden dem Grafikdrucker nur &27F Grafikbytes angekündigt 
und gesendet. Das bedeutet, daß die letzte Punktreihe des Bild- 
schirmes nicht auf der Hardcopy erscheint. Das ist eigentlich ein 
Behelf, jedoch wird man in fast allen Fällen auf die letzte 
Punktreihe verzichten können. 


Doch nun zum Programm selbst. 


Zum Auslesen der jeweils sieben untereinanderliegenden Bytes 
wird eine Tabelle aufgebaut, in der die Adressen der sieben ak- 
tuellen Bytes gespeichert sind. Die achte Adresse in der Tabelle 
enthält immer die Adresse des ersten von den sieben Bytes, die 
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als nächstes behandelt werden sollen. Diese Tabelle wird ab 
Label NELII für die jeweils nächste siebener-Zeile neu erzeugt. 
Dabei wird die Systemroutine SCR NEXT LINE benutzt. Sie 
erhöht die in HL übergebene Bildschirmadresse so, daß sie auf 
die nächste Punktzeile des Bildschirmes zeigt. In der Schleife 
Label NEBIT findet nun die Umwandlung von waagerechten 8- 
Bit- ins senkrechte 7-Bit-Format statt. 


Dazu wird, angefangen mit dem letzten Tabellenelement 
(TABLET), die jeweilige Byteadresse ins HL-Register geladen. 
Durch RLC (HL) wird nun das jeweilige Byte nach links rotiert, 
wobei das MSB (höchstwertige Bit) zusätzlich ins Carry geladen 
wird. 


Der Bildpunkt ist nun also im Carry gespeichert und wird durch 
RRA in den Akku hineinrotiert. Dann beginnt die Schleife von 
vorn. Nach sieben Durchläufen enthält der Akku der Reihe noch 
die sieben höchsten Bits (=Punkte) der Bildschirmzeilen. 


Diese Schleife ist ein hervorragendes Beispiel für die Leistungs- 
fähigkeit der Maschinenbefehle bei einem geschickten Einsatz. 


Überlegen Sie sich die Funktionsweise der Schleife noch einmal 
anhand der folgenden Skizze: 
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RLC (HL) 





RRA 


Nach dem Ende der NEBIT-Schleife wird der Akkuinhalt noch- 
mals rotiert. Damit unsere ermittelte Bitmatrix nicht mehr das 
Bit Nr. 7, das nicht gesendet werden kann, belegt. Schließlich 
wird das erzeugte Byte an den Drucker ausgegeben. 


Dieser Vorgang läuft insgesamt achtmal bei jedem Byte ab. Da- 
mit ist jedes Bit schrittweise in den Akku rotiert worden. Ein 
interessanter Nebeneffekt dieser Programmmethode ist, daß Sie 
bei genauem Hinsehen die Bytes auf dem Bildschirm wirklich 
rotieren sehen. Meist ist das jedoch nur am Anfang einer Zeile 
zu sehen, da dann das Programm "auf den Drucker warten muß". 


Sind alle acht Bit eines Bytes gesendet, so wird durch die Schlei- 
fe ab NEBYI1 mit Hilfe der Systemroutine SCR NEXT BYTE 
jedes Tabellenelement auf das nächste Byte gesetzt. Bei der 
Übergabe der aktuellen Bildschirmadresse im HL-Register 
erhöht SCR NEXT LINE den Wert von HL, so daß er das 
nächste Byte in derselben Zeile adressiert. 


Befehlserweiterungen 10 


Anhand des Bytezählers C wird, solange nicht das Ende der Zei- 
le erreicht ist, wieder zur Umsetzung und Ausgabe der neuen 
adressierten Bytes gesprungen. 


Wurde das Ende einer Zeile erreicht, so wird mittels des Zählers 
E ermittelt, ob weitere Zeilen zu drucken sind. Wenn dem so ist, 
wird zum Label NELINE verzweigt. Dort beginnt der gesamte 
Vorgang von neuem. Handelt es sich um die letzte zu druckende 
Zeile (LD A,E; CP 1), dann wird die Anzahl der untereinander 
auszugebenden Bits auf 4 gesetzt und die Tabelle ab der Mitte 
nur mit vier Startadressen beschrieben. 


Hier haben wir außerdem noch einen kleinen Programmtrick an- 
gewendet. Nachdem mit LD DE,TABMIT und LD B,4 die Ta- 
bellendefinitionswerte für die letzte Zeile gesetzt wurden, muß 
natürlich der Befehl LD DE,TABANF übersprungen werden. 
Normalerweise geschieht dies durch einen JR-Befehl. Kürzer ist 
jedoch, ein Byte mit Wert &21 anstelle des JR-Befehles abzu- 
legen. Der Rechner interpretiert &21 als Opcode des Befehls 
LD HL,nn. Damit sind die beiden folgenden Bytes diesem 
Befehl zugehörig. Das dritte Byte ist das High Byte von 
TABANF, also &A0. &AO steht für den Befehl AND B. Beide 
so erzeugten Befehle schaden unserem Programmablauf nicht 
und verändern auch keine wichtigen Registerinhalte. Nach 
diesen beiden Befehlen wird nun die reguläre Programmaus- 
führung mit dem Befehl LD HL,(TABEND) fortgesetzt. Der 
gewünschte Effekt, nämlich das Überspringen des Befehles 
LD DE,TABEND, wird auf diese Weise erreicht. 


Zwei Unterprogramme sind noch erwähnenswert: TABOUT und 
PRINT. 


TABOUT steht für Tabellenausgabe. Dabei sind Tabellen von 
Steuerbefehlen an den Drucker gemeint. Die erste Steuersequenz 
ist PRINT. Sie setzt den Zeilenvorschub auf 7/72 Zoll und 
sendet einen Zeilenvorschub. Um diese Steuersequenz an den 
Drucker zu senden, wird die Adresse des ersten Bytes der Liste 
nach HL geladen und dann TABOUT aufgerufen. TABOUT er- 
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kennt das Ende einer Sequenz an dem am Ende stehenden Null- 
byte. 


Außerdem gibt es die Sequenzen PRLIIN und PRREIN. PRLIIN 
(Printer Line Init) sendet die Steuersequenz, die den Drucker für 
639 Bytes (also für eine Zeile) in den 8-Bit Nadel Bituntermodus 
versetzt. PRREIN (Printer Re-init) schließlich normiert den 
Drucker wieder für den Standardbetrieb. 


Damit Sie das Hardcopyprogramm auch an andere Drucker an- 
passen können, haben wir jeweils noch vier Bytes bei jeder Se- 
quenz freigelassen. Sollte Ihr Drucker im übrigen keinen Zeilen- 
vorschub ausführen, so ersetzen Sie den Code 24 der PRLIIN- 
Sequenz durch den Code 10 (LF). 


Die Print-Routine erledigt die Druckausgabe. Zuerst wird der 
Zähler PRTCOU erniedrigt und zurückgesprungen, wenn der 
Zähler Null ist. Dadurch werden nur 639 anstelle von 640 Bytes 
pro Zeile gesendet. Dann wird mit MCPRBU getestet, ob der 
Drucker "busy" (engl.: beschäftigt) ist. Wenn ja, wird weiter ge- 
testet, ansonsten wird mit MCPRCH das Byte, das im Akku ent- 
halten ist, an den Drucker gesendet. 
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ABBR 18 ; Hardcopy von H.D. 18/18/85 
ABaD 20 

; fuer Epson FX88@ und Kompatible 

ADOO 38 

; lauffaehig auf CPC 464,664 und 6128 

ABBO 40 ; ohne Aenderungen 

ABOO 58 ORG Xaddo 

ADDD 68 SCEGELO EQU %&bc@b ; Screen Get Location 
ABOD 78 SCNELI EQU %bc26& ; Screeen next Line 
ABDDD® 88 SCNEBY EQU %&bc28 ; Screen next Byte 
ABDOD 98 MCPRCH EQU %&bd2b ; MC print Character 
ABDOO 188 MCPRBU EQU &bd2e ; MC Pinter Busy ? 
ABBaD 118 

ABDD Z10000 128 LD hl,prinit ; printer Initia- 
ABBS3 CDBBOD 138 CALL tabout ; lisierung 

ABDO&L CDOBBC 148 CALL scgelo 

ABB? 57 158 LD d,a 

ABBA 1E08 160 LD e,8 

ABaC 19 178 ADD hl,de 

; Adresse des Punktes oben links 

ADOD 220000 188 LD (tabend) ‚hl 

AB1B 1E1D 198 LD e,297 ; Zeilen zaehler 

AB12 3E07 200 LD a,7 

AB14 320000 218 LD (bitanz),a 

; Bits pro Druckzeile 

AB17 DS 228 NELINE PUSH de ; Zeilenzaehler retten 
AB1B BAQB 230 LD b,8 

ı 8 Zeilenstartadresse aendern 

ABIA 7B 248 LD a,e 5; wenn nicht 

ABIB FEBI 258 CP 1 ; letzte Zeile 

AB1D 2@FE 268 JR nz,ok 5; nicht, alles ok 
ABIF 3EB4 278 LD a,4 ; sonst nur 4 Bit pro 
AB21 3200008 280 LD (bitanz),a ; Druckzeile 
AB24 110090 298 LD de,tabmit ; und Tabelle mit 
A027 0604 3u0 LD b,4 ; nur 4 Elementen fuellen 
A829 21 318 DB «21 


; naechsten Befehl "zerstoeren" 
**## Zeile 2608 : OK=&AB2A 
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LD 
LD 
EX 


LD 
INC 
LD 
INC 
EX 
CALL 


DJINZ 
LD 
CALL 
LD 
LD 
LD 
PUSH 
LD 
LD 
SUB 
LD 


LD 
DEC 
LD 
DEC 
EX 
RLC 
RRA 
EX 
DJINZ 
RRA 
CALL 
POP 
DJINZ 
LD 
LD 


ABZA 110000 328 OK 
AB2D ZABBRB 338 

AuSQ EB 348 NELI1 
; Eintagung in die Tabelle 
ABS1 73 358 

nB32 23 368 

ABSsS 72 378 

ABS4 23 388 

ABSS EB 398 

ABS6& CD25BC 488 

; naechste Zeilenadresse 
ABS? 18FS 418 

ABSB 210008 420 

ABSE CDBBHB 438 

AB41 217F02 440 

AB44 220008 458 

AQ47 3815008 468 

ABAA CS 478 NEBY 
ABAB 3ABUBOD 4808 

ABAE 47 498 

ABAF 97 500 

ABSB 210000 518 

; mit letztem Tabellen- 
ABSS 56 528 NEBIT 
ABS4 2B 338 

ABSS SE 540 

ABS6 ZB 558 

ABS7 EB 568 

ABSS CBO& 578 

ABSA 1iF 588 

AUSB EB 378 

ABSC 10FS 688 

ABSE 1F 618 

ABSF CDABODO 628 

ABs2 Ci 638 

ABS 1BES 648 

AB65 210008 658 

AB&B 3407 668 

ABA SE 678 NEBY1 


LD 


de,tabanf 
hl,(tabend) ;z 
de,hl 


HL ist neue erste 


(hl),e 
hl 
(hl),d 
hl 
de,hl 
scneli 
nelii ; holen und speichern 
hl,prliin ; Bit Mustermodus 
tabout ; 
h1,&27# ; 
(prtcou),hl ; 
bc,%858 ; 
be 
a,(bitanz) ; Anzahl der 
Druckbits 

a; Akku loeschen 
hl,tablet 


einschalten 

aber nur 
6539 Bytes senden 
c=Bytezaehler=88 


b,a; 


d,(hl) ; 
hl 
e,t(hl) ; 
hl; 
de,hl 
(hl) 5 
;s Caay in den Akku rotieren 
de,hl 
nebit ; 
;s Bit 7 nicht benutzen 


Element beginnen 


Byte adresse 


lesen 


Byte rotieren 


naechstes Bit 


print ; 
bc 

neby ; 8 mal pro Byte 
hl,tabanf ; 
b,7 5 um je ein 
e,(hl) ; 


ausgeben 


7 Tabellenelemente 


Byte nach 
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INC hl ;z rechts erhoehen 
LD d,(hl) 


DEC hl 

EX de,hl 

CALL scneby 

EX de,hl 

LD (hl),e 

INC hl 

LD (hl),d 

INC hl 

DJNZ nebyi 

LD b,8 

DEC c ; noch nicth Zeilenende ? 
JR nz,neby ; dann naechstes Byte 
FOP de 

DEC e ; Letzte Zeile ? 

JR nz,neline ; nein, dann naechste 


LD hl,prrein 


JR tabout ; dann ende 
3 
TABOUT=&AB87 
TABOUT=&AQ87 
TABOUT=&AB87 
TABOUT LD a,(hl) ; Tabelle an 
cr ® ; Adresse HL 
z ; bis zum 
INC hl ; Nullbyte 
PUSH hl ; ausgeben 
CALL print 
POP hl 
JR tabout ; naechstes Byte 
3 
PRINT=&AB9I3 
PRINT=&AB93 
PRINT LD hl,(prtcou) ; Byte Zaehler 
DEC hl ; erniedrigen 


AB&B 23 688 
AB&C 56 698 
AB&D 2B 708 
AB&GE EB 7ı8 
AB&GF CD2BBC 720 
AB72 EB 738 
AB7S 753 748 
Aa74 23 758 
Au7S 72 768 
AB7& 23 778 
A@77 18F1 788 
A077 B608 798 
AB7B OD 808 
AB7C 20CC 818 
ABTE Di 820 
AB7F 1D 830 
ABBB 2095 840 
ABB2 219008 858 
; Printer re-initialisieren 
ABBS 18FE 868 
ABB7 878 
*+*%* Zeile 1380 : 
*#t#* Zeile 43580 : 
**+* Zeile 868 : 
A087 7E 888 
ABBB FEBD 898 
ABBA CB 980 
ABBB 23 918 
ABSC ES 920 
ABBSD CDBaaR 9308 
AB9D Ei 948 
ABF1 18F4 958 
AB9I3 968 
***%* Zeile #208 : 
**#%* Zeile 9380 : 
ABFS ZABBBR 970 
ABYF& 2B 988 
A097 220008 998 


LD (prtcou) ‚hl 


; und wiederspeichern 


110 


CALL mcprbu 


CALL mcprch 
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c,a 


h; Test ob 


a, 
1 Bytezaehler 
z 


gleich null ist 

a,c ; nein, dann Akku ausgeben 
; Printer Busy ?? 

c,wait ; Ja, weiterwarten 
’ 


Zeichen ausgeben 


27 ; ESC 
"1" 3 7/72 Zoll Zeilenvorschub 
&BB80d ; CR und B-Byte 
8 ; Platz fuer 
’ 


[%) Aenderungen 


13 
24 


27 
"*" ; Bitmustermodus setzen 
1 5 Modus 1 
&027f 
8 ; 8-Byte 
® ; Platz fuer 
5 


[%] Aenderungen 


&ABBC 


27 ; ESC 
"@" ; Normieren 
&BBBd ; CR und B-Byte 
8 ; Platz fuer 
’ 


(] Aenderungen 


ABIA AF LD 

; Charakter zwischenspeichern 
AB9FB 7C LD 
ABSC BS OR 
AB9D CB RET 
ABIE 79 LD 
ABUYF CD2EBD 

ABAZ S8FB JR 
AQA4 CD2BBD 

ABA7 C9 RET 
ABAB 

**** Zeile PRINIT=&ABASB 
ABAB 1B PRINIT DB 
ABA9 31 DM 
ABAA BDaR DW 
ABAC 20008 DW 
ABAE Qa00 DW 
ABBO 

**** Zeile PRLIIN=&ABBO 
ABBO OD 1168 PRLIIN DB 
ABB1 18 DB 

;s CANcel; durch 18=LF ersetzen 
ABB2 1B DB 
ABBS 2A DM 
ABB4 21 DB 
ABBS 7F82 DW 
ABB7 90 DB 
ABBB BODR DW 
ABBA BO00O DW 
ABBC 

*+*%* Zeile 

ABBC 1B DB 
ABUBD 48 DM 
ABBE BPaB Dw 
ABCO 32008 DW 
ABC2 3208 DW 
ABCA 

*#+%* Zeile BITANZ=&ABCA 
**#%* Zeile BITANZ=&ABCA 
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RR 
ABCA 
KRRK 
*rRr 
“RK 
ABCS 
arrr 
“rr% 
ADC7T 
KrRR 
ABCD 
KR 
ABD4 
“r%%* 
KRR% 
ABDS 


Zeile 
07 
Zeile 
Zeile 
Zeile 
7Fa2 
Zeile 
Zeile 


Zeile 


Zeile 


Zeile 
Zeile 


488 : 
1328 
458 
9708 
998 
1330 
328 
650 
1348 
290 : 
1350 
518 : 
1368 
1808 
358 
1370 


Programm :hardcopyfl 


Start : &ADBO En 
Laenge : B@D7 

8 Fehler 
Variablentabelle : 
SCGELD BCBAB SCNELI 
MCPRBU BDZE NELINE 
NEBY ABAA NEBIT 
PRINT AB9S WAIT 
PRREIN ABBC BITANZ 
TABMIT ABCD TABLET 


BITANZ=LABCA 
BITANZ DB 7 
PRTCOU=S&ABCS 
PRTCOU=&ABCS 
PRTCOU=&AUCS 
PRTCOU DW «27 
TABANF=&ABCT 
TABANF=&ABCT 
TABANF DS & 
TABMIT=&ABCD 
TABMIT DS 7 
TABLET=&ABD4 
TABLET DS 1 
TABEND=&AQDS 
TABEND=&ABDS 
TABEND DS 2 


de : &ABD& 


BC2&4 SCNEBY BC28 
AB17 DK ABZA 
ABSS NEBYI ABAA 
ABFF PRINIT ABAS 
ABC4 2 PRTCOU ABCS 
ABD4 TABEND ABDS 


MCPRCH 
NELI1 

TABOUT 
FRLIIN 
TABANF 


BD2B 
ABSO 
ABB7 
ABBO 
ABCT 
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18 REM Hardcopy fuer alle Schneider 
28 REM Aufruf mit call %aB88 in MODE 2 
sa FOR i=%ABBR TO RAUCH 

48 READ at: w=VAL("&H"+a$) 

SQ s=s+w:POKE i ,w:NEXT 

68 IF s<i> 19658 THEN PRINT"Fehler in Datas":END 
78 PRINT"ok!"=END 

88 DATA 21,A8,AB,CD,87,AB,CD,@B 
98 DATA BC,57,1E,88,19,22,D5,AQ 
188 DATA 1E,1D,3E,87,32,04,AB,DS 
118 DATA 06,88,7B,FE,01,28,8B,3E 
128 DATA 84,32,C4,AB,11,CD,AQ,06 
158 DATA 84,21,11,C7,AB,2A,D5,AQ 
148 DATA EB,„73,23,72,23,EB,CD,26 
158 DATA BC,10,F5,21,B®,AB,CD,87 
168 DATA AB,„21,7F,802,22,C5,AQ,81 
178 DATA 598,88,05,3A,C4,AB,47,97 
188 DATA 21,D4,AB,56,2B,SE,2B,EB 
198 DATA CB,B65,1F,EB,18,F5,1F,CD 
288 DATA 93,AB,C1,18,E5,21,C7,AQ 
218 DATA 88,87 ,5E,23,56,2B,EB,CD 
228 DATA 28,BC,EB,73,253,72,23,180 
250 DATA F1,268,288,82D,28,CC,D1,1D 
248 DATA 20,95,21,BC,AB,18,208,7E 
258 DATA FE,29,C8,23,E5,CD,93,A8 
268 DATA E1,18,F4,2A,C5,AB,2B,22 
278 DATA C5,AQ,4F,7C,B5S,C8,79,CD 
288 DATA 2E,BD,38,FB,CD,2B,BD,C? 
298 DATA 1H,51,8D,20,28,20,00,20 
SBB DATA 8D,18,1B,2A,81,7F,22,880 
518 DATA 29,29,00,29,1B,42,0D,80 
328 DATA 008,00,89,008,07,7F,02 
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12. Das richtige Timing für CPCs 


Damit Sie beim Programmieren die Zeit nicht vergessen, haben 
wir eine Softwareuhr entwickelt. Sie kann Ihnen Ärger mit 
Familie und Freunden ersparen und ist auch noch bei einigen 
Anwenderprogrammen eine sinnvolle Erweiterung. 


Programme wie eine Softwareuhr können nur mit Hilfe der In- 
terruptsteuerung geschrieben werden. Die Interruptprogram- 
mierung ist noch schwieriger als die "normale" Programmierung 
in Maschinensprache. Es ist bereits bei Maschinenprogrammen 
schwer genug, Programme zu testen. Bei Programmen, die den 
Interrupt benutzen, ist es fast gänzlich unmöglich, unter realen 
Bedingungen zu testen, da es bei dieser Sorte von Programmen 
eben auf das "Timing" ankommt. 


Jedoch bietet die Interruptprogrammierung ungeahnte Möglich- 
keiten. Überhaupt würde der Rechner ohne Interrupt gar nicht 
funktionieren. Eine grundsätzliche Aufgabe des Interrupts ist 
z.B. die Tastaturabfrage. Natürlich werden auch die BASIC- 
Interruptbefehle über den internen Interrupt abgewickelt. 


Doch fangen wir vorn an. Durch einen in jedem Rechner vor- 
handenen Schwingquarz wird mit einer bestimmten Frequenz der 
gesamte Ablauf gesteuert und synchronisiert. Dieser Quarz ist 
damit die grundlegende interne Uhr des Rechners. In vielen 
Rechnern gibt es mehrere solcher Taktgeber. Durch einen dieser 
Taktgeber, beim Schneider durch das Gate Array, wird in regel- 
mäßigen Abständen der Interrupt Request (IRQ) Pin des Z80- 
Prozessors auf Low geschaltet. Dadurch wird aus dem jeweils 
laufenden Maschinenprogramm zu einer vom Interruptmodus 
abhängige Adresse verzweigt. 


Der Z80 wird beim Schneider im Interruptmodus 1 betrieben. 
Damit bewirkt ein IRQ einen RST &38 oder CALL &0038 
Befehl. Der IRQ tritt beim Schneider-Computer 300 mal in einer 
Sekunde auf. Ist der Interrupt nicht mit DI ausgeschaltet 
worden, wird die aktuelle Programmausführungsadresse auf den 
Stapel gelegt und nach Adresse &38 verzweigt. Dort steht 
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wiederum ein Sprung zur Adresse &B989 (6128: &BY41/ 664: 
&B941), also ins ständig eingeschaltete RAM, wo die eigentliche 
Interruptroutine beginnt. 


Von hier aus wird das untere ROM selektiert und u.U. in die 
Interrupt-Service-Routine an Adresse &00B1l gesprungen. Dort 
werden nun z.B. die Tastaturabfrage oder das Erhöhen der 
BASIC-Variablen TIME erledigt. 


Eine zweite ROM-Routine sorgt für die Bedienung der BASIC- 
Interrupts. Auch wird die gesamte Steuerung des Soundchips 
durch Interruptroutinen ausgeführt. 


Um nun eine eigene Interruptroutine in die vorhandene ein- 
zubinden, legen wir einen Patch über den Sprung zur Interrupt- 
Service-Routine, der unsere Routine aufruft. Am Ende dieser 
Routine muß dann natürlich eine Verzweigung zur eigentlichen 
Interrupt-Service-Routine, also zur Adresse &00B1, erfolgen. 


Mit diesen Voraussetzungen können wir unsere eigenen Routi- 
nen ohne Einschränkungen zunächst unabhängig entwickeln und 
dann einbinden. Ab dem Zeitpunkt der Einbindung wird sie 
dann jede 1/300stel Sekunde automatisch aufgerufen, ohne daß 
der sonstige Ablauf im Rechner nennenswert beeinflußt wird. 


Das bedeutet für unser Beispiel einer Softwareuhr, daß diese 
ständig, ohne unser Dazutun, auch im Direktmodus läuft. So 
lange der Computer eingeschaltet ist, wird die aktuelle Zeit auf 
dem Bildschirm an der gewünschten Position angezeigt. Nun 
wollen wir die eigentliche Routine besprechen. 


Am Anfang des Programms steht die kleine Initialisierungsrou- 
tine, die den CALL-Befehl zur Interrupt-Service-Routine auf 
unsere eigene Routine verbiegt. Die folgenden Befehle verän- 
dern die Init-Routine so, daß sie bei erneutem Aufruf wieder 
das Abhängen der Routine bewirkt. 


Die Routine beginnt ab dem Label START. Dort wird als erstes 
die Rücksprungadresse für die Interrupt-Service-Routine auf 
den Stapel gelegt. D.h., daß die eigene Routine danach einfach 
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durch RET abgeschlossen werden kann und dann automatisch 
zur Adresse &00B1 gesprungen wird. 


Der erste Zähler COUNT wird dann bei jedem Aufruf um eins 
erniedrigt. Dadurch wird erreicht, daß nur jedes 300ste Mal, al- 
so jede Sekunde, die neue Zeit ausgegeben wird. Es ist sinnvoll 
auf diese Weise möglichst wenig Zeit zu verschwenden, da sonst 
der Rechner unnötig verlangsamt wird. Ist der Zähler COUNT 
also gleich 0, wird er für die nächsten Durchgänge wieder mit 
300 geladen. Nun beginnt das eigentliche Uhrprogramm. 


Zum Speichern der Uhrzeit werden drei Bytes verwendet. Ein 
Byte für die Stunden, eins für die Minuten und ein Byte für die 
Sekunden. Dazu wird die aktuelle Zeit also z.B. eine 16 für 16 
Uhr im Stundenbyte gespeichert. Der Wert jedes Bytes wird im 
BCD-Format abgespeichert. Das bedeutet, daß jede Ziffer des 
Dezimalwertes einzeln in je 4 Bits gespeichert wird. BCD steht 
für Binär Codiert Dezimal. Aufgrund der Eigenschaften des 
Hexadezimalsystems kann man auch folgendes schreiben. Dezi- 
mal 16 ist im BCD Format &16. Die BCD-Form ist in unserem 
Fall aus Zeitgründen effektiver als die einfache Speicherung des 
Wertes. Das Rechnen mit 1-Byte-BCD-Zahlen ist kaum lang- 
samer als mit normalen Zahlen, da der Z80 den speziell für die 
BCD Arithmetik vorgesehenen Befehl DAA besitzt. Die Ausgabe 
einer BCD Zahl auf den Bildschirm ist jedoch im Vergleich zu 
normal gespeicherten Zahlen sehr viel einfacher und damit 
schneller. Auf diese Weise geht am wenigsten von der kostbaren 
Rechenzeit verloren. 


Gerade bei Interruptroutinen sollte man auf den Faktor Rechen- 
zeit besonderen Wert legen. 


Zum Weiterstellen der Uhr um eine Sekunde wird die Adresse 
des Sekundenbytes im HL Register und die maximale Anzahl 
der Sekunden (also 60) an das Unterprogramm ZEIT übergeben. 


Das Unterprogramm ZEIT erhöht die an der angegebenen 
Adresse stehende BCD-Zahl um 1 und prüft, ob der Maximal- 
wert erreicht ist. Ist das der Fall, wird das Carry-Flag gelöscht, 
ansonsten gesetzt. Wurde der Maximalwert noch nicht erreicht, 
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wird nach dem Rücksprung zur Hauptroutine sofort zur Ausgabe 
der neuen Uhrzeit gesprungen. Das ist möglich, da sich die 
Minuten bzw. Stunden nur dann ändern, wenn 60 Sekunden ab- 
gelaufen sind. 


Wurde der Maximalwert erreicht, so setzt ZEIT das jeweilige 
Byte wieder auf 0, denn nach 59 Sekunden bzw. Minuten 
kommt wieder die 0, ebenso nach 24 Stunden. Beim Erreichen 
des Maximalwertes der Sekunden wird HL mit der Adresse der 
Minuten geladen und, um diese zu erhöhen, wieder ZEIT aufge- 
rufen. Wurde auch der Maximalwert der Minuten (60) erreicht, 
so werden auch noch die Stunden erhöht, wobei zuvor B mit 24 
geladen wird. Spätestens jetzt sind die 3 Bytes auf die aktuelle 
Uhrzeit gesetzt und können ausgegeben werden. 


Dazu wird die Speicherstelle POS mit der Bildschirmposition für 
die Ausgabe .geladen. Dann werden mit der Routine BCBYOU 
(BCD BYte OUt) die Stunden, Minuten und Sekunden jeweils 
durch Doppelpunkte getrennt ausgegeben. Bei BCBYOU kommt 
der Vorteil der BCD Zahlen zum Tragen. Der Akku wird mit 
&30, dem ASCII-Code von "0" geladen. Dann wird mit RLD, 
wobei HL auf das jeweilige Byte zeigen muß, immer eine BCD 
Ziffer in die unteren 4 Bits des Akkus rotiert. Dadurch steht 
dann sofort der ASCII-Code der jeweiligen Ziffer im Akku und 
kann ausgegeben werden. Die Ausgabe erfolgt durch den Aufruf 
vom Unterprogramm PRINT, das bei jeder Ausgabe die Position 
für die nächste Ausgabe berechnet und abspeichert. Hier folgt 
nun das komplette Assemblerlisting: 
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ABOD 18 

; Softwareuhr fuer "alle Schneider" 

ABoO 28 ; H.D. 22/9/85 

ADaO 38 

ABOD 40 ; Initialisierungsroutine 
ABBB 210000 58 LD hl,start ; Interruptroutine 
ABBS 2251B9 68 LD (%&b951),hl ; patchen 

ABO& 78 ;s fuer 464: ld (%&b949),hl 
ABB& 21B100 88 LD h1,%bi 

ABB? 2201AB 98 LD (KaBB1),hl 

ABBC C9 188 RET 

ADOD 118 

ADOD 128 WRITE EQU &bdd3 ; (464, 664 und 6128 !!) 
AQOD 138 INTCOU EQU 328 

ABDOD 148 POSITI EQU %&47080 ; mode 2 

ABBD 1582 DOPFUN EQU &3a 

ADBD 168 

**** Zeile 58 : START=&AQDOD 

ABBD 21B1BB 178 START LD h1,%&bi1 ; Ruecksprungadresse 
ABB ES 188 PUSH hl ; Interruptserviceroutine 
AB11 Z2ADDBB 198 LD hl,(count) ; Zaehler holen 
AB14 2B 200 DEC hl 

; erniedrigen, damit nur jede 

AB1S 220000 218 LD (count) ,hl 

ABIB 7C 220 LD a,h 

; Sekunde "der Rest" ausgefuehrt wird 

AB1F BS 2538 OR 1 ; also: Zahler ist nicht 
ABIA CO 2408 RET nz ; Null, dann Fertig 

ABIB 212C01 258 LD hl,intcou ; Zaehler wieder 
ABLE 2200008 268 LD (count),hl ; Initialisieren 
Aa21 2708 

AB21 210000 288 LD hl,sec ; Sekunden-Byteadresse 
AB24 0660 298 LD b,&6B ; max. 68 (BCD) Sekunden 
AB2& CDBBBO 380 CALL zeit ; Sekunden erhoehen 
AB29 38FE 318 JR c,anzei 

;s noch nicht 68, dann Anzeigen 

ABU2B CDOBRD 328 CALL zeit ; Minuten erhoehen 


ABZE 38FE 3358 JR c,anzei 
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ABSD 0624 348 LD b,%&24 ; max. 24 Stunden 
ABS2 CDoBaR 358 CALL zeit ; 

**%%* Zeile 318 : ANZEI=&AB3SS 

*%%% Zeile 338 : ANZEI=&ABSS 

ABSS 210047 36B ANZEI LD hl,positi 

; Position fuer Ausgabe 


ABuS8 220008 378 LD (pos) ‚hl 

ABSB 210000 388 LD hl,stund 

ABSE CDEBOA 398 CALL bcebyou 

; BCD-Format Byte Ausgabe 

AB41 3ESA 490 LD a,doppun 

ABA43 CDOBOR 418 CALL print 

AB4L CDURORR 420 CALL bcbyou ; Minuten Ausgeben 
ABA9 3ESA 430 LD a,doppun 

AB4B CDOBDR 440 CALL print 

AB4E CDODaR 458 CALL bcbyou ; Sekunden Ausgeben 
ABS1 C9 468 RET 

ABS2 478 

ABS2 480 


; Unterprogramm zur erhoehung der Zeitzaehler 
**+* Zeile 308 : ZEIT=&ABS2 
**** Zeile 328 : ZEIT=%ABS2 


**%%* Zeile 358 : ZEIT=&ABS2 

ABSZ 7E 498 ZEIT LD a,(hl) ; alte Zeit 

ABSS C5B1 5a8 ADD a,i ; erhoehen 

ABSS 27 518 DAA ; Bytes sind im BCD-Format 
AuS& 77 528 LD (hl),a ; Speichern 

ABS7 BB 538 CP b ; Maximum erreicht ? 
ABS8 DB 548 RET c ; Nein, dann Fertig 
ABS? 97 558 SUB a; Ja, dann mit 

AuSA 77 568 LD (hl),a ; "8" fortsetzen 
ABSB 2B 578 DEC hl 

; naechstes Mal Minuten (Stunden) 

ABSC C9 588 RET 

ABSD 598 

ABSD 688 


;5 Routine zur Ausgabe eines BCD-Bytes 
**#* Zeile 398 : BEBYODU=&ABSD 
**#** Zeile 428 : BCBYOU=&ABSD 
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**%%# Zeile 458 : BCBYDU=&AQSD 


ABSD 3E38 &18 BCBYOU LD a,&5B 

; Ausgabe von Zahlen (asc("8")=&3B) 

ABSF EDöF 628 RLD 

; hoeherwertige Ziffer in Akku rotieren 

ABs1 CDBBOB 638 CALL print 

AB&s4 EDAF 648 RLD 

AB6&h CDOBOR 658 CALL print ; niderwertige Ziffer 
ABsF EDAF 668 RLD ; Wert wiederherstellen 
AB&B 23 678 INC hl 

; naechstes Mal Minuten (Sekunden) 

ABC C9 688 RET 

ABD 698 


**%*# Zeile 418 : PRINT=&AQ&AD 
**%*%* Zeile 4408 : PRINT=&AB&D 
**#* Zeile 638 : PRINT=&AQ&D 


**#%* Zeile 6508 : PRINT=&AB&D 

AB&D ES 788 PRINT PUSH hl 

ABGE FS 718 PUSH af 

ABGF ZABDOD 720 LD hl,(pos) 
Au72 24 738 INC h 

Au73 220000 740 LD (pos) ,hl 
A@7& CDD3SBD 758 CALL write 
AQ79 Fi 768 POP af 

ABT7A Ei 778 POP hl 

AQ7B C9 780 RET 

ABTC 790 

***%* Zeile 378 : POS=&AQ7C 

*#*%* Zeile 7208 : POS=&AB7C 

*#** Zeile 7408 : POS=&AB7C 

ABTC 808 POS DS 2 


*#*%* Zeile 198 : CDUNT=&ABT7E 
*#%%# Zeile 218 : COUNT=&ABTE 
**** Zeile 268 : COUNT=&ABT7E 


ABTE 2CB1 818 COUNT DW 388 
**+* Zeile 388 : STUND=&AB8B 
ABBO 00 828 STUND DB 8 
ABBS1 BD 838 DB [} 


**%% Zeile 2898 : SEC=&ABB82 
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ABSs2 00 848 SEC DB [") 


Programm :uhr 
Start : &ABOB Ende : %AB82 
Laenge : 8983 

@ Fehler 
Variablentabelle : 
WRITE BDDS3 INTCOU Bi?2C POSITI 4708 DOPPUN BBSA 
START ABBD ANZEI AB3S ZEIT ABS52 BCBYOU AUSD 
FRINT AQB&D FOS AB7C COUNT AB7E STUND ABB 
SEC ABB2 


i@ REM BASIC Lader fuer Uhr 

28 REM Initialisierung mit Call %aQdBa 
380 FOR i=&ABQB TO &AQ7F 

48 READ at: w=VAL ("&H"+a$) 

58 s=s+w:POKE i,w:NEXT 

60 IF s<> 14784 THEN PRINT"Fehler in Datas":END 
78 ' fuer 464: IF si> 14776 THEN „........ 
88 FRINT"ok!":END 

92 DATA 21,8D,AB,22,51,B9,21,Bi 

108 "AbA:.„zecoyengen 149g genye* 

118 DATA 80,22,01,AQ,C9,21,B1,00 

128 DATA ES,2A,7E,AQ,2B,22,7E,AQ 

138 DATA 7C,B5,C0,21,2C,81,22,7E 

148 DATA AQ,21,82,AB,06,68,CD,52 

150 DATA AB,38,8A,CD,52,AB,38,25 

168 DATA 86,24,CD,52,AD,21,00,47 

178 DATA 22,7C,AB,21,88,A®,CD,S5D 

188 DATA AB,SE,3A,CD,6D,AB,CD,SD 

198 DATA AB,SE,SA,CD,6D,AB,CD,SD 

208 DATA AB,C9,7E,C6,21,27,77,B8 

218 DATA D8,97,77,2B,C9,3E,53@8,ED 

228 DATA 4F,CD,6D,AB,ED,6sF,CD,6D 

238 DATA AQB,ED,6F ,23,C9,E5,F5,2A 

248 DATA 7C,AB,24,22,7C,AB,CD,D3 

258 DATA BD,F1,E1,C9,808,28,2C,01 
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Für den Fall, daß Sie keinen Assembler besitzen, haben wir 
auch einen BASIC-Lader erstellt. 


Außerdem folgt noch ein kleines BASIC-Programm, mit dem Sie 
die Uhr auf bequeme Weise stellen können. Wollen Sie die Uhr 
wieder ganz ausstellen, also die Routine aus dem Interrupt aus- 
klinken, so brauchen Sie nur zum Zweitenmal mit CALL &A000 
die Routine aufzurufen. Ein erneutes Einstellen ist dann erst 
wieder nach Eingabe von 


POKE &A001,&D:POKE &A002,&A0 


mit CALL möglich. 
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18 
28 
308 
48 
590 
60 
78 
88 
90 
1900 
118 
128 
150 
1408 
):P 
158 
168 
178 
188 
190 


REM Uhrsteller 
MEMORY &9FFF 
MODE 2 
LOAD"”uhr1.obj 
LOCATE 15,7:PRINTUhr steller" 
LOCATE 1,11 
INPUT"12 oder 24 Stunden Anzeige (12/24) ?";e 
PRINT 
IF e<>12 AND e<>24 THEN 78 
POKE &AB31,VAL("&"+STR$(e)) 
zeibas=&AB8B 
INPUT"Uhrzeit (hh,mm,ss)";h,m,s 
PRINT 
POKE zeibas,VAL("&"+STR$(h)):POKE zeibas+t1,VAL("&"+STR$ (m) 
OKE zeibas+t2,VAL("&"+STR#(s)) 
INPUT "Position (Spalte,Zeile)";sp,ze 
IF spf1 OR ze<i THEN 158 
IF sp=1 THEN sp=257 
POKE &AB364,ze-1:POKE &AB37,sp-2 
" call &addd 
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TEIL 3 


Tips & Tricks zur Maschinensprache 
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13. Programmieren in Maschinensprache 


Immer wenn die Geschwindigkeit zu einem wichtigen Faktor der 
Programmierung wird, ist der Programmierer gezwungen, direkt 
oder indirekt auf die Maschinensprache zurückgreifen. Direkt 
bedeutet, daß der Maschinencode unmittelbar in den Computer 
eingegeben wird. Dafür gibt es mittlerweile eine große Anzahl 
von Assemblerprogrammen, die diese Arbeit erleichtern. 

Mit indirektem Weg ist an dieser Stelle die Möglichkeit gemeint, 
einen Compiler zu verwenden. Verfügt man z.B. über einen 
BASIC-Compiler, so wird das selbst erstellte Programm wie 
gewöhnlich in der Sprache BASIC geschrieben. Der Compiler 
übersetzt dann dieses BASIC in den Maschinencode, der getrennt 
von dem Quellcode (BASIC) gespeichert und verarbeitet wird. 


Um einen Einblick in die Maschinenebene zu bekommen, 
werden wir anhand der direkten Assemblierung einige kleinere 
Routinen erstellen und deren zeitliche Vorteile gegenüber einer 
Interpretersprache, wie es BASIC im CPC 464/664 ist, darlegen. 
Dazu benötigen wir jedoch kein Assemblerprogramm. Kleine 
BASIC-Ladeprogramme werden uns helfen, den Maschinencode 
in den Arbeitsspeicher zu bringen. 


Starten Sie einmal das folgende, kleine BASIC-Programm. 


50 MODE 2 

100 FOR ADRESSE=49152 TO 65535 
110 POKE ADRESSE,255 

120 NEXT 


Programmbeschreibung: 


Die oberen 16K RAM des CPC-Speichers (&C000-&FFFF) sind 
für den Bildschirm reserviert. Die numerischen Inhalte der 
Speicherplätze repräsentieren die Punktemuster, die, auf dem 
Bildschirm zusammengefügt, dann sinnvolle Zeichen ergeben. 
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Mit unserem Beispielprogramm setzen wir alle Punkte auf dem 
Bildschirm. 


50: Der Befehl MODE 2 löscht den Bildschirm und 
setzt den Offset auf die linke obere Ecke. 


100: Die FOR-NEXT-Schleife beginnt mit der ersten 
Bildschirmadresse und endet mit der letzten. 


110: Der Wert 255 wird in alle Speicherplätze gePOKE1t. 


Die Ausführung dieses Programmes benötigt ca. 40 Sekunden. 
Bei 16384 zu belegenden Speicherplätzen bedeutet dies, daß jede 
Speicherplatzbelegung etwa 2,4 Millisekunden dauert. 

Um nun einen Zeitvergleich mit einem Maschinenprogramm zu 
bekommen, das etwa gleich aufgebaut ist wie das BASIC- 
Programm, lassen Sie einmal folgendes Programm laufen. 


10 MODE 2:SUMME=O 

20 FOR 1=40960 TO 40979 

30 __READ a$:WERT=VAL("&N+a$) 

40 __POKE ADRESSE ‚WERT :SUMME=SUMME+WERT:NEXT 

50 IF SUMME<>1531 THEN PRINT "Fehler in DATAs":END 
60 PRINT "TASTENDRUCK STARTET MASCHINENROUTINE" 

70 CALL &BB06:CALL 40960 

80 END 

90 DATA 21,00,40,01,01,00,11,00,C0,3E 

100 DATA FF,12,13,ED,42,C2,0B,A0,C9,00 


Mit dieser Assemblerroutine kann man die Ausführungszeit auf 
etwa 0,2 Sekunden verkürzen, das bedeutet pro Speicherplatz gut 
12 Mikrosekunden. Obwohl diese Routine noch nicht einmal die 
schnellste Möglichkeit darstellt, dürfte dieser Vergleich doch die 
Möglichkeiten der Assemblierung verdeutlichen. 
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Programmerläuterung: 


Das Maschinenprogramm besteht aus den hexadezimalen Werten 
der DATA-Zeilen 90 und 100. In der FOR-NEXT-Schleife 
(Zeile 20-40) werden diese Werte gelesen, in einen numerischen 
Wert umgewandelt (Z. 30) und dann in die Speicherplätze 
40960-40979 gePOKEt. Der Befehl CALL &BB06 in Zeile 70 
ruft eine Routine des Betriebssystems auf, die die Tastatur 
solange abtastet, bis eine beliebige Taste gedrückt wird. Dann 
erst wird der nächste Befehl ausgeführt. Hier folgt CALL 40960, 
der jene Maschinenroutine aufruft, die in der FOR-NEXT- 
Schleife in den Speicher geschrieben wurde. 

Nach der Beendigung kehrt der Rechner in die Obhut des 
BASIC-Interpreters zurück und meldet sich mit READY, nach- 
dem er in die Zeile 80 (END) gelangte. 


Was bedeuten denn nun die Hex-Werte der DATA-Zeilen? 


Um eine befriedigende Antwort darauf geben zu können, 
müssen wir erst einmal ein paar Blicke in die Z80-CPU, das 
Herz des Schneider Computers, werfen. 


Nach der Einführung in die Sprache der CPU (Tips & Tricks 
Band 1) soll hier nun ein tieferer Blick in die Trickkiste des 
Rechners geworfen werden. Es werden viele wichtige, leistungs- 
fähige und schnelle Befehle des Z80 vorgestellt und anhand von 
praktischen Beispielroutinen erläutert. 


Zum Verständnis dessen brauchen wir erst einmal eine gute 
Kenntnis der Register, wie sie aufgebaut sind, wie sie funktio- 
nieren und wie man sie effizient anwendet. 


13.1 Die Register des Z80 
Die Register sind Speicherplätze innerhalb der CPU. Obwohl der 


Z80 ein 8-Bit-Prozessor ist, verfügt er auch über 16-Bit- 
Register. 
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Die Bezeichnungen der Register lauten wie folgt: 


8-Bit-Register: A,B,C,D,E,F,H,L 
16-Bit-Register: BC, DE, HL, SP, PC 


Damit sind aber nur die wichtigsten Register aufgeführt. Die 
anderen wollen wir an dieser Stelle erst einmal übergehen, weil 
sie für das Grundverständnis nicht erforderlich sind. Auch 
möchte ich jene Leser auf noch folgende Abschnitte dieses 
Kapitels verweisen, die bereits bemerkt haben daß einige der 
16-Bit-Register Bezeichnungen haben, die sich aus denen der 8- 
Bit Register kombinieren lassen. Dies hat seinen logischen 
Grund, ... aber davon später mehr. 


13.1.1 8-Bit Register 


Die aufgeführten 8-Bit-Register sind bei weitem nicht gleich- 
wertig. Das A- und das F-Register nehmen gegenüber den 
anderen eine ganz besondere Position ein, so daß die Aufzählung 
besser folgendermaßen erfolgen sollte: 


A,F, B,C,D,E,H,L 


Das A-Register (Akkumulator) 


Alle logischen und arithmetischen 8-Bit-Operationen laufen stets 
über das A-Register. Die Ergebnisse dieser Operationen stehen 
dann im Akku zur Verfügung, während das andere Register 
nicht verändert wird. 


1. Beispiel einer Addition zweier Zahlen: 
LD A,6 Lade Akku mit 6 


LD D,3 Lade Reg. B mit 3 
ADD A,D Addiere Inhalt von D zum Akku 
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Nach der Operation ADD A,D steht in A der Wert 9, während 
in D weiterhin der Wert 6 vorhanden ist. 


2. Beispiel einer Subtraktion zweier Zahlen: 


LD A,854 Lade Akku mit &54 
LD L,854 Lade Reg.L mit 854 
SUB A,L Subtrahiere Inhalt von D vom Akku 


Nach dieser Subtraktion steht im Akkumulator nun der Wert 0. 


Diese beschriebenen arithmetischen Operationen beeinflussen 
aber nicht nur den Inhalt des Akkus. Ein weiterer Einfluß 
erfolgt auf das Flag-Register. Dieses gibt Aufschluß über 
verschiedene Auswirkungen, die bei den Operationen mit dem 
Akku auftreten können. Um die Auswirkungen darzustellen, 
werden die einzelnen, speziellen Bits des F-Registers gesetzt 
oder zurückgesetzt. 

Erst aufgrund dieser Informationen, die das Flag-Register bietet, 
kann man bedingte Operationen ausführen. Doch zunächst 
einmal die Beschreibung dieses Registers. 


Das F-Register (Flag-Register) 


Wie Sie bereits erkannt haben, kann man über den Inhalt des F- 
Registers Aufschluß über die Ergebnisse von arithmetischen und 
logischen Operationen erhalten. 

Das Zero-Flag ist nur eines der sechs zur Verfügung stehenden 
Flags dieses Registers, aber es ist neben dem Carry-Bit (C) wohl 
das wichtigste. 
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Der Aufbau des Flag-Registers: 


Nachfolgend sehen Sie die Anordnung der einzelnen Flags im 
Flagregister. 


Bez. SZ H P/VN_C 
BtN. 7 6 5 4 3 2 1 0 
Beschreibung der Flags: 
S: Sign 0 Ergebnis positiv 
1 Ergebnis negativ 
zZ: Zero 0 Ergebnis ungleich null 
1 Ergebnis gleich null 
H: Halfcarry 0 kein Übertrag von Bit 3 nach Bit 4 


im Akku 
l Übertrag von Bit 3 nach Bit 4 


P/V: Parity/Overffow 0 ungerade Parität / kein Überlauf 
von Bit 6 nach 7 
1 gerade Parität / Überlauf von Bit 
6 nach 7 (andere Funktionen spä- 
ter) 


N: Subtraktions-Flag 0 nach Ausführung einer Addition 
1 nach Ausführung einer Subtraktion 


C: Carry 0 kein Übertrag von Bit 7 nach Bit 8 
1 Übertrag von Bit 7 nach Bit 8 

Das Sign-Bit (S) 

Mit den 8 Bit eines Bytes lassen sich 2°=256 Werte darstellen, 


nämlich O bis 255. Bei der vorzeichenbehafteten Darstellung sind 
es die Werte -128 bis +127. Hierbei wird der Zahlenwert durch 
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die Bits O0 bis 6 und das Vorzeichen durch das Bit 7 dargestellt. 
Ist das Vorzeichen positiv, so ist Bit 7 zurückgesetzt (0). Folglich 
ist Bit 7 bei einer negativen Zahl gesetzt, d.h. gleich 1. 

Die Binärzahl 11111111 steht dann für die Dezimalzahl -1. 


Das Zero-Bit (Z) 


Wenn ein Byte durch eine logische oder arithmetische Operation 
oder durch einen Rotations- oder Schiebebefehl beeinflußt wird, 
so zeigt das Z-Flag mit einer I an, daß jenes Byte zu null 
wurde. Dementsprechend ist das Z-Flag null, wenn der Wert des 
Bytes ungleich Null ist. 

Bei Vergleichen zwischen zwei Bytes - z.B. CP A,E - wird das 
Z-Bit null, wenn die Register gleiche Werte beeinhalten, eins, 
wenn die Inhalte differieren. Dies ist leicht zu verstehen, wenn 
man weiß, daß der Befehl CP A,s den Operanden s vom Akku 
subtrahiert. 

Von den weiteren drei Funktionen des Z-Flag möchte ich ledig- 
lich noch die Verwendung beim Testbefehl BIT b,r erläutern. 
Der Befehl BIT 5,D testet das fünfte Bit des Registers D auf 
seinen Inhalt. Ist der Inhalt eins, so ist das Z-Flag null, ist der 
Inhalt null wird das Z-Flag eins. 


Das Half-Carry-Bit (H) 


Das H-Flag zeigt einen Übertrag vom unteren Nibble (Bit 0-3) 
zum oberen Nibble (Bit 4-7) eines Bytes an. Haupsächliches 
Anwendungsgebiet ist hier die BCD-Arithmetik und der Dezi- 
malabgleich (DAA). Wenn hierbei das untere Nibble einen Wert 
größer als 9 erhält, muß ein Übertrag ins obere Nibble erfolgen, 
da ein Nibble zur Darstellung einer Dezimalzahl nicht größer als 
9 werden darf. Dieser Übertrag wird durch das H-Flag ange- 
zeigt. 
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Das Paritäts/Overflow-Bit (P/V) 


Diesem Flag kommen verschiedene Funktionen zu. 


a) 


b) 


c) 


d) 


Trotz einem sehr hohem Qualitätsstandard der heuti- 
gen Hardware sind Fehler bei der Übertragung von 
Daten in ihrer Anzahl lediglich zu verringern, nicht 
aber gänzlich auszuschließen. Die Parität wird meist 
bei der Übertragung von Zeichen im ASCII-Format 
(7-Bit) verwendet, indem man das Paritätsbit als 
achtes Bit anhängt. Ist die Anzahl der Datenbits, die 
1 sind, gerade, so wird das Paritätsbit auf 1 gesetzt. 
Ist jene Anzahl jedoch ungerade, so wird das 
Paritätsbit auf 0 gesetzt. Sollte bei einem Daten- 
transfer nun ein Bit falsch übertragen werden, so 
stimmt die Parität nicht mehr mit dem Paritätsbit 
überein. Dies wird dann erkannt, und es wird eine 
erneute Übertragung dieses Bytes verlangt werden. 


Wenn bei einer Addition oder Subtraktion das 
Ergebnis größer als +127 wird, so wird das 7. Bit, 
das für Vorzeichen reserviert ist, fälschlicherweise 
beeinflußt. Dieses wird durch das P/V-Flag ange- 
zeigt. 


Bei Blocktransfer- und Bilocksuchbefehlen wird 
dieses Flag in Abhängigkeit des Registers BC beein- 
flußt. Dieses Register hat bei den erwähnten Befeh- 
len die Funktion eines Zählers. Ist das Zählregister 
BC gleich 0, wird das P/V-Flag auf 0 gesetzt. Ist BC 
ungleich 0, wird P/V gleich 1. 


Bei den Befehlen LD A,I und LDA,R erhält das 
P/V-Flag den Wert des Interrupt-Enable-Flip-Flops 
IFF2. Damit ist es möglich den Inhalt des IFF2 ab- 
zufragen und/oder zu speichern. 
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Das Subtraktion-Bit (N) 


Der Programmierer wird für gewöhnlich keinen Gebrauch von 
diesem Flag machen. Der eigentliche Nutzen dieses Flags ergibt 
sich beim Dezimalabgleich (DAA) nach einer Addition oder 
Subtraktion. Dieser Abgleich wird nach einer Addition anders 
als nach einer Subtraktion ausgeführt. Wie die CPU nun auf den 
DAA zu reagieren hat, erkennt sie aus dem Inhalt des N-Flags. 


Das Carry-Bit (C) 


Das Übertragsbit zeigt bei einer Addition oder Subtraktion an, 
ob bei diesen Operationen ein Übertrag auftritt. 

Bei Rotations- oder Schiebebefehlen wird das Carry-Bit als 
neuntes Bit gebraucht. 

Das Carry wird von den logischen Operationen AND, OR und 
XOR zurückgesetzt. Diese Befehle des Z80 werden häufig 
verwendet, wenn es gilt, das Carry zu löschen. 


Warum löschen diese Logik-Befehle das C-Flag? 


Betrachten wir dazu das folgende Beispiel mit dem Wert &D3 im 
Akku: 


11010011 


AND 11010011 
11010011 


Da bei diesem Befehl, wie auch bei OR oder XOR, nie ein 
Übertrag auftreten kann, auch nicht wenn man den Akku mit 
einem anderen Register vergleicht, wird das Carry-Flag stets auf 
0 gesetzt. Diese Befehle entpuppen sich also als regelrechte 
Carry-Lösch-Befehle. 
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Etwas über die Verwirrungen, wann und wie die Flags gesetzt, 
zurückgesetzt und benutzt werden 


Es mag auf den ersten Blick Unverständnis aufkommen lassen, 
daß z.B. das Zero-Flag genau dann 1 wird, wenn das getestete 
Register durch eine Operation 0 wird, und umgekehrt. 

Dieser Umstand wird aber sofort plausibel, wenn man die 
Inhalte der Flags als Wahrheitswerte betrachtet. 

Ein Flag kann demnach zwei Wahrheitswerte annehmen, wahr 
und falsch. Die 1 steht für wahr und die 0 für falsch. 

Der Z80 verfügt über verschiedene bedingte Sprungbefehle. Ob 
die Bedingung, die einen Sprung auslösen würde, erfüllt ist, 
erkennt die CPU aus den Zuständen der Flags. 

Am Beispiel des häufig verwendeten Sprungbefehls JP C,adresse 
soll das Zusammenspiel mit dem Flag-Register dargelegt werden. 
Bei der Addition des Registers A mit einem anderen Wert wurde 
ein Ergebnis ermittelt, dessen Wert größer als &FF ist. Wie wir 
wissen, ist das Ergebnis durch den Überlauf des Akku nicht 
zerstört worden, weil in dem Fall das Carry-Bit als neuntes Bit 
mit der Wertigkeit 3° (=256) anzusehen ist. 

Wenn dieser Fall auftritt, so soll das Programm zu einem 
bestimmten Programmteil verzweigen. Dies erledigt der oben 
erwähnte bedingte Sprungbefehl JP C,adresse, der genau dann 
aktiv wird, wenn das C-Bit gesetzt, d.h. 1 ist. 


Wenn wir genau dann einen Sprung auslösen wollen, wenn das 
C-Bit 0 ist, benutzen wir den Befehl JP NC,adresse, der dann 
aktiv wird, wenn das Carry null ist. 


Die Register B,C,D, E,H,L 


Diese Register sind vollkommen gleichwertig. Man kann ihnen 
direkt Werte zuweisen, man kann sie mit Werten aus anderen 
Registern laden, und man kann sie mit sich selbst laden, was in 
meinen Augen allerdings von zweifelhaftem Wert ist, wenn man 
nicht gerade eine Zeitverzögerung bewirken will. 

Die Register können mit den Inhalten des RAMs geladen und 
wieder zurückgespeichert werden. 
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Man kann die Register mit dem Akkuinhalt logisch und arith- 
metisch verknüpfen und/oder sie mit Rotations- und Schiebe- 
befehlen beeinflussen. 

Damit sind die wichtigsten Anwendungsgebiete dieser Register 
als 8-Bit-Register aufgeführt. 


13.1.2 Die 16-Bit-Register BC, DE, HL, PC und SP 


Die 8-Bit-Register B und C, D und E bzw. H und L können 
zusammengesetzt werden, womit man in der Lage ist, mit 
speziellen Befehlen über 16-Bit-Register verfügen zu können, 
und dieses in einer 8-Bit-CPU. 


Dies hat natürlich seine ganz besondere Bewandtnis. Wie soll 
man beispielweise den 40000. Speicherplatz der 65536 zur 
Verfügung stehenden Plätze adressieren? Mit einem 8-Bit-Wort 
lassen sich ja gerade 2°=256 verschiedene Werte oder Adressen 
darstellen. Fügt man aber zwei Byte zu einem 16-Bit-Register 
zusammen, so hat man die Möglichkeit, 216265536 Speicherplätze 
anzusprechen. 


Den drei 16-Bit-ern kommen aber nun unterschiedliche Funk- 
tionen zu. Obwohl sie von der Struktur keine Unterschiede 
aufweisen, fordert der Prozessor für bestimmte Operationen die 
benötigten Parameter in dem einen oder anderen Register an. 


So kann man das HL durchaus als abgespeckten 16-Bit-Akku- 
mulator bezeichnen. Drei verschiedene arithmetische Verknüp- 
fungen lassen sich über HL mit DE oder BC bewirken. 


Das Register BC wird häufiger als Zähler benutzt. Dies geschieht 
in den sogenannten Blocktransfer- und Suchbefehlen die wir 
später noch genau kennen lernen werden. 
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Das Register PC (Program Counter) 


Um kein Mißverständnis aufkommen zu lassen: Das Register PC 
ist ein reiner 16-Bit-er. Man hat nur einen ganz beschränkten 
Einfluß auf dieses Register. 


Die Befehlsfolge eines Programmes steht immer in einem 
Speicherbereich außerhalb des Prozessors. Im Prozessor selbst 
befindet sich immer nur der aktuelle, auszuführende Befehl. 
Diesen Befehl holt sich die CPU aus demjenigen Speicherplatz, 
dessen Adresse gerade im PC steht. Man kann den Program 
Counter also als einen Zeiger bezeichnen. Dieser zeigt stets auf 
den nächsten Speicherplatz, in dem der folgende Befehl oder 
Datenwert steht. 

Nachdem sich der Prozessor einen Befehl aus dem Speicher 
geholt hat, wird der PC auf den neuen aktuellen Stand gebracht. 
Entsprechend der Länge der Einträge (es gibt ja 1-, 2-, 3- und 
4-Byte-Befehle) wird der PC um den entsprechenden Wert 
erhöht. 


Das Register SP (Stack Pointer) 


Der Stack Pointer hat ebenfalls eine Zeigerfunktion. Der Inhalt 
des SP ist die Adresse des oberen Stack-(Stapel-)elementes. 


Doch was ist nun ein Stack? 


Während man im allgemeinen jederzeit auf jeden Speicherplatz 
Zugriff hat, kann man bei der Stapelverarbeitung immer nur an 
das oberste Element des Stapels herankommen. Dies läßt sich 
leicht an dem Beispiel eines Bücherstapels veranschaulichen. Hat 
man mehrere Bücher in einen Karton gelegt, so kann man 
immer nur das oberste Buch entnehmen. Will man an das unters- 
te, muß man erst alle darüberliegenden Bücher entfernen. 

Diese Zugriffsart nennt man LIFO-Prinzip. LIFO steht für Last- 
In-First-Out, das zuletzt hineingegebene Element ist auch als 
erstes wieder zu entnehmen. 
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Das Beispiel mit dem Buch-Stack hat nur einen Fehler. Der 
Stack im Rechner wird von oben nach unten aufgebaut. Der 
erste Eintrag liegt an der höchsten Stelle im Stack, die weiteren 
Einträge erhalten demnach also Speicherplätze mit kleineren 
Adressnummern. Dies ist aber nicht von allzu großer Bedeutung, 
da die Verwaltung von der CPU übernommen wird. Man muß es 
trotzdem wissen, wenn man den Stack in einen anderen Bereich 
legen will. 


Dies kommt allerdings nicht häufig vor, da im RAM des 
Rechners immer ein Bereich des Speichers für den Stack reser- 
viert ist. Dieser darf aber auf keinen Fall durch andere Daten 
überschrieben werden. Dies würde zwangsläufig zum Absturz 
des Systems führen. 


Der Vollständigkeit halber erwähne ich jetzt noch, daß der SP 
immer auf das oberste, also zuletzt eingegebene Stapelelement 
weist. 


Nun sind die wichtigsten Register der Z80-CPU benannt und 
beschrieben worden. 

Es gibt noch weitere Register, die ich hier aber noch nicht 
erwähnen will, weil sie zum allgemeinen Verständnis vorerst zu 
entbehren sind. 


Nachdem uns der Z80 nun in groben Zügen bekannt ist, wenden 
wir uns jetzt den Befehlen dieses Mikroprozessors zu. 

Da es unsinnig ist, erst alle Befehle kennenzulernen - derer gibt 
es über 500 - wollen wir uns immer jene heraussuchen, die uns 
bei der Lösung verschiedener Problemstellungen dienlich sein 
können. 
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13.3 Ein detailiertes Beispiel der Maschinenprogrammierung 


Als erstes Beispielprogramm werde ich das zu Anfang des 
Kapitels aufgeführte Bildschirmlöschen erläutern. 


Das eigentliche Assemblerprogramm besteht, wie wir wissen, aus 
der Datenfolge der DATA-Zeilen 90 und 100. 


90 DATA 21,00,40,01,01,00,11,00,C0,3E 
100 DATA FF,12,13,ED,42,C2,0B,A0,C9,00 


Das BASIC-Programm diente ja lediglich dem Zweck, diese 
Werte in den Speicher ab dem Speichplatz 40960 (&A000) zu 
POKEn. 


Diese DATA-Zeilen haben nur für Assembler-Profis eine 
direkte Aussagekraft. Nun wollen wir uns dieses Programm ein- 
mal in einer verständlichen Schreibweise anschauen. Diese 
Schreibweise nennt man die mnemotechnische Form des 
Assemblerlistings. 

Mnemonics (hier liegt kein Druckfehler vor) heißen die aussage- 
kräftigen Kürzel, die hier Anwendung finden. 

Wenn man den Hex-Code 3E FF liest, muß man schon über ein 
gutes Gedächtnis und viel Erfahrung verfügen, um erkennen zu 
können, was sich dahinter verbirgt. Die mnemotechnische Dar- 
stellung desselben Befehles lautet LD A,&FF. Hieraus ist nun 
leicht zu erkennen was gemeint ist. 


Lade Akku mit der Hex-Zahl FF 
LD A s & FF 


Das folgende Programmlisting ist äußerst aufschlußreich. In der 
ersten Spalte steht die Speicherplatznummer, in der zweiten 
Spalte ist der Hex-Code und in der dritten Spalte der 
mnemonische Code des Assemblerbefehles eingetragen. 
Abgerundet wird dieses Listing durch die Spalte ’Bemerkungen’, 
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in der die Bedeutungen der Befehle kurz dargelegt werden 
können. 


Adresse Hex-Code Mnemonic Bemerkung 

A000 21 00 40 LD HL,&4000 Lade Zähler 

A003 01 01 00 LD BC,&0001 Lade Subtrahent 

A006 11.00 CO LD DE,&C000 erster Bildschirmplatz 

A009 3E FF LD A,&FF Lade Akku mit FF 

A0OB 12 LD (DE),A belege Sp. DE mit A 

AOOC 13 INC DE erhöhe DE wm 1 

ADOD ED 42 SBC HL,BC subtr. BC von HL 

AOOF C2 OB AO JP NZ ,&A00B Jump nach &A00B wenn Zero- 
Flag=0 

A012 CY9 RET zurück ins Hauptprogr. 

A013 00 NOP NoOPeration 


Die Adressen in der linken Spalte beziehen sich dabei übrigens 
immer nur auf das erste Byte in jeder Zeile. Deshalb werden 
nach den gezeigten 3-Byte-Befehlen immer zwei Adressen 
übersprungen. Daran gewöhnt man sich aber sehr schnell. 


Die ersten vier Befehle des Listings sind bekannt. Es werden die 
verschiedenen Register lediglich mit Werten geladen, deren 
Bedeutungen in Kürze zu verstehen sind. 


Neu in diesem Listing ist zum ersten der Befehl LD (DE),A. 
Wenn, wie in diesem Fall, ein Registername in Klammern steht, 
ist der Inhalt des Registers als Adresse zu verstehen. DE bein- 
haltet an dieser Stelle den Wert &C000 (siehe dritte Zeile). 
Damit wird mit diesem Befehl LD (DE),A der Inhalt von A in 
den Speicherplatz &C000 gebracht. 


Der zweite neue Befehl ist INC DE. INC steht für INCremen- 
tiere. Dieser Befehl erhöht den Inhalt des angegebenen Registers 
um 1. Nach diesem Befehl steht nun der Wert &C001 im 
Register DE. 
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Übrigens lassen sich, bis auf den Program Counter, alle bislang 
erwähnten Register INCrementieren. 


Weiterhin neu ist der Befehl SBC HL,BC. SBC steht für Subtra- 
hiere mit Carry. Das Register HL wird um den Inhalt von BC 
verringert. 

Um Schwierigkeiten mit diesem Befehl zu vermeiden, muß man 
immer beachten, daß das eventuell gesetzte Carry-Bit bei dieser 
Operation für einige Überraschungen gut ist. Im Zweifelsfall 
über den Zustand des C-Bits sollte man es zuvor immer löschen. 
Dies kann mit den Befehlen ANDA, XORA und OR A 
geschehen. 

In unserem Beispielprogramm habe ich darauf der Einfachheit 
halber verzichtet. 


Der letzte neue Befehl in diesem Programm (RETurn und NOP 
kennen Sie ja schon aus TIPS & TRICKS Band I) ist ein 
bedingter Sprung, JP NZ,&A00B. 

Dieser wird immer dann ausgeführt, wenn die an den Sprung 
geknüpfte Bedingung erfüllt ist. Bei dem Sprungbefehl 
JP NZ,adresse lautet die Bedingung NZ, Non Zero oder auf 
deutsch ungleich null. 

Solange das Zero-Flag 0 ist und damit anzeigt, daß das Ergebnis 
der vorhergehenden Operation ungleich null ist, wird der 
Sprungbefehl ausgeführt. 

In diesem Beispiel geschieht das so lange, bis das Register HL 
null wird, also &4000 (16384) mal. Dies entspricht der Anzahl 
der Speicherplätze, die für den Bildschirmbereich reserviert sind. 
Wenn nun der Befehl SBC HL,BC das Register HL auf null 
setzt, wird zugleich das Zero-Flag gesetzt. Die Bedingung für 
den folgenden Sprungbefehl ist nicht mehr gegeben, womit 
dieser nicht mehr durchgeführt wird. Der nächste Befehl RET 
wird ausgeführt und der Rechner kehrt in den BASIC-Interpre- 
ter zurück. Dieser meldet sich mit READY. 
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Eine 'zeitkritische’ Betrachtung der Routine 


Wenn man zur Lösung eines Programmierproblemes die 
Maschinensprache wählt, um höhere Verarbeitungsgeschwindig- 
keiten zu erreichen, so muß man der Wahl der Befehle und dem 
Programmaufbau ebenfalls besondere Beachtung zuteil werden 
lassen. 

In diesem Sinne ist die bereits vorgestellte Routine alles andere 
als günstig ausgefallen. Dies aber mit dem Hintergedanken dem 
aufmerksamen Leser zu demonstrieren, daß der direkte Lösungs- 
weg manchmal elegant erscheint, in vielen Fällen aber Lösungen 
unterlegen ist, welche umständlich oder zu aufwendig 
erscheinen. 

Bei der Assemblerprogrammierung gelten nicht unbedingt die 
Konventionen, die das Programmieren in einer höheren Sprache 
effizient machen. So ist unter anderem das Löschen eines 
zusammenhängenden Speicherbereiches wie der des Bildschirmes 
mit einem sehr langen Programm um ein vielfaches schneller zu 
erledigen als mit einem scheinbar effizienten, nur wenige 
Befehle langen Programm. Wie überall wird auch hier ein 
Kompromiß zwischen Geschwindigkeit und Programmierauf- 
wand den zu begehenden Weg weisen. 


Um nun die Geschwindigkeit einer Routine zu erfahren, 
brauchen wir uns nicht mit der Stoppuhr neben den Rechner zu 
setzen. Viel genauer arbeitet da ein Taschenrechner. 

Dies funktioniert natürlich nur, wenn man weiß, wie lange die 
CPU zur Ausführung einzelner Befehle benötigt. Am Beispiel 
unserer Routine werde ich die Vorgehensweise bekannt machen. 
Die Zahlen hinter den Mnemonics sind die Angaben über die 
Dauer des betreffenden Befehles in Mikrosekunden. 
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LD HL,&4000 5 
LD BC,&0001 5 
LD DE,&C000 5 


LD A,&FF 3.5 
weiter LD (DE),A 6.5 
INC DE 3 
SBC HL,BC 7.5 
JP NZ weiter 5 
RET 5 


Die ersten vier Zeilen des Programmes und die letzte werden bei 
dem Programmlauf nur einmal durchlaufen, d.h. die 
ea Zeiten werden nur einmal gerechnet. Die Summe 
ist 23.5*10°® 


Der Programmbereich, der durch die Sprungmarke (Label) 
"weiter" gekennzeichnet ist, und den ich zur Übersicht zwischen 
die gestrichelte Linie gesetzt habe, ist eine endliche Schleife, die 
&4000 mal durchlaufen wird. Demnach wird die Summe dieser 
vier Zeilen mit &4000 multipliziert. Da jene Summe 22 ist, 
ergibt sich für die gesamte Ausführung der Schleife 
&4000*22"°=0.360448 Sekunden. 

Plus dem einmaligen Durchlauf der übrigen fünf Zeilen ergibt 
sich eine Ausführungszeit des gesamten Programmes von 
0.3604715 Sekunden. 


Daß der Sprungbefehl etwas schneller arbeitet, wenn die 
Bedingung negativ ist, soll hier nur der Vollständigkeit halber 
erwähnt werden, fällt aber in der gesamten Rechnung mit 
wenigen Bruchteilen von Mikrosekunden nicht ins Gewicht. 


Doch wir wollen die Routine weiter beschleunigen. Dazu müssen 
wir uns noch einmal klarmachen, was geschieht, wenn ein 
Registerinhalt fortlaufend erhöht wird. Irgendwann ist dann die 
größte Zahl erreicht, die dieses Register darzustellen in der Lage 
ist. Darüber hinaus wird das Register wieder zu null und kann 
von neuem aufgezählt werden. 
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Und damit wären wir an dem Punkt angelangt, wo unsere 
weiteren Überlegungen zum Beschleunigen der Löschroutine 
ansetzen sollen. Wenn nämlich das betreffende Register gerade 
null wurde, hat es auch gerade den für uns interessanten 
Bildschirmspeicherbereich verlassen. Dies soll für unsere Routine 
die Endbedingung sein. 


Bisher haben wir ein separates Zählregister (HL=&4000) neben 
dem Adressregister DE benutzt. Die zusätzliche Zeit, die wir 
beim Subtrahieren von HL aufwendeten, wollen wir im 
folgenden Beispiel sparen. Das Adressregister DE wird ja nach 
der letzten Adresse &FFFF beim INCrementieren auch wieder 
zu null. 

Nachdem nun das ’Zählwerk’ wegrationalisiert wurde, sieht 
unser Programm wie folgt aus. 


LD DE ,&C000 Startadresse 


LD A,&FF zu speichernder Wert 
weiter LD (DE),A Speichern 

INC DE Adr. erneuern 

JP NZ,weiter Sprung bei Bedingung 

RET Zurück ins Hauptprogr. 


Dies scheint eine praktische Lösung zu sein. Drei Zeilen wurden 
gespart, zwei Doppelregister (HL und BC) stehen für andere 
Zwecke zur Verfügung, und, was sehr wichtig ist, die Zeile 
SBC HL,BC wird nicht mehr durchlaufen. Dies hätte eine Zeit- 
ersparnis von 0.12288 Sekunden zur Folge, das entspricht etwa 
35% des ersten Programmentwurfes. 


Leider gibt es dabei einen Haken, auf den jeder Assembler- 
Neuling irgendwann einmal (oder auch öfter) hereinfällt. 


Der Befehl INC DE hat keinen Einfluß auf das Flagregister, aus 
dem der bedingte Sprungbefehl seine Informationen bezieht. 
Auch wenn DE auf null inkrementiert wird, bleibt das Zero- 
Flag unbeeinflußt, alle anderen Flags übrigens auch. 
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Die Folge daraus, daß die Abbruchbedingung nie zustande 
kommt: 

Zuerst wird der gesamte Bildschirmbereich mit &FF belegt. 
Dann wird das Adressregister DE zu null erhöht. Dadurch 
gelangt man wieder in den untersten Speicherbereich des CPC. 
Dort liegen einige, für das System ’lebenswichtige’ Routinen, die 
nun überschrieben werden. Ein Absturz des Rechners ist nun 
zur unvermeidlichen Tatsache geworden. 


Aber unsere Vorarbeiten waren nicht nutzlos. Man muß nur auf 
irgendeinem Weg dafür sorgen, daß nach dem INC DE das 
Zero-Flag entsprechend dem Ergebnis des INC-Befehles gesetzt 
wird. Der Befehl BIT 7,D bietet sich da an. Wie er funktioniert, 
beschreibe ich nach dem folgenden Listing des verbesserten und 
lauffähigen Programmes. 


LD DE,&CO00 


1\D A,&FF 
weiter LD (DE),A 

INC DE 

BIT 7,D 

JP NZ,weiter 

RET 


Das Adressregister DE wird zu Beginn der Routine mit &C000 
geladen. Aus der binären Schreibweise heraus erkennt man die 
Zustände der 16 Bits dieser Zahl: 


Register D E 
hexad. 6) 0 0 0 
binär 1100 0000 0000 0000 


Bit Nr. 7654 3210 7654 3210 


Wie man hier sieht, sind die Bits 6 und 7 des Registers D von 
Anfang an gesetzt, während die anderen 14 Bits 0 sind. Beim 
Inkrementieren von DE werden also lediglich die niederwertigen 
14 Bits verändert, die anfangs alle gleich 0 sind. Erst wenn DE 
den Wert &FFFF (11111111 11111111 binär) hat und ein 
weiteres Mal inkrementiert wird, kommt es zum Überlauf. Die 
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16 Stellen des Registers DE werden dabei null, also auch Bit 6 
und 7 von D werden Null. 

Auf diesen Punkt ’wartet’ der Befehl BIT 7,D, wobei aber dieser 
Befehl, im Gegensatz zu den 16-Bit-Inkrementierungsbefehlen, 
das Zero-Flag beeinflußt. 

Der Befehl setzt das Z-Flag dann auf 1, wenn das getestete Bit 
des Registers zu null wird. 

In diesem speziellen Fall könnte man auch den Befehl BIT 6,D 
benutzen, da ja auch das Bit 6 des Registers D von Anfang an 
gesetzt ist, und gleichzeitig mit Bit 7 zurückgesetzt wird. 


Dies aber nur der Vollständigkeit halber, denn beide Befehle 
sind absolut gleichwertig. 


Der Zeitvergleich dieser Routine mit der ersten von uns unter- 
suchten fällt etwas günstiger aus. 


LD DE,&C000 5 
LD A,&FF 3.5 


weiter LD (DE),A 6.5 
INC DE 3 
BIT 7,D 4 
JP NZ ‚weiter 5 
RET 5 


Bei dem Zeitvergleich einer solchen Programmschleife können 
wir die wenigen Befehle, die nicht zur Schleife gehören, außer 
Betracht lassen, weil diese keine für uns wesentlichen Zeiträume 
beanspruchen, da sie pro Programmdurchlauf ja nur einmal 
benutzt werden. 

Die Schleife des letzten Programmes benötigt nur noch 18.5 
Mikrosekunden, während die erste noch 22 Mikrosekunden 
’verschlang’. 

Dies ist zwar eine klare, aber noch nicht befriedigende Verbes- 


' serung. 


In den bisher beschriebenen Routinen wurden die Schleifen 
immer &4000 (16384) mal durchlaufen. Bei jedem Durchlauf 
wurde der Inhalt des Akku, also immer nur 1 Byte pro 
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Schleifendurchlauf, im Bildschirmspeicherbereich abgelegt. Dies 
geschieht mit dem Befehl LD (DE),A. Leider gibt es beim Z80 
keinen Befehl der wie folgt o.ä. lautet: LD (DE),HL, denn damit 
könnte man mit einem Befehl direkt zwei Speicherplätze auf 
einmal belegen. Dies würde natürlich gewaltige Zeitvorteile mit 
sich bringen. 

Zwar gibt es Befehle, die den Inhalt eines 16-Bit-Registers ab- 
speichern können. Bei ihnen ist es aber nicht möglich, eine 
Adressierung so elegant zu gestalten, wie bei dem Befehl 
LD (DE),A, wo nur das Register DE INCrementiert werden 
muß. 


Um nun aber doch zwei Byte mit einem Befehl ablegen zu 
können, muß man sich mit einem Trick behelfen. 

Dieser Trick liegt darin, die Funktion des Stacks zu 
mißbrauchen. 

Normalerweise wird der Stack benutzt, um beispielsweise die 
Inhalte von Registern kurzzeitig zwischenzuspeichern, wenn eine 
andere Routine angesprungen werden soll, in der diese Register 
ebenfalls, aber mit anderen Werten benutzt werden. Dazu liegt 
der Stack in einem Bereich des RAMs, der vor einem Zugriff 
des BASIC-Interpreters geschützt ist. 

Der Trick liegt nun darin, den Stack in den Bildschirmbereich 
zu legen, um dann den schnellen Stapelbefehl PUSH rr benutzen 
zu können. Dieser Befehl ist mit 6.5 Mikrosekunden nur gering- 
fügig schneller als ein doppelt ausgeführter LD (DE),A mit 7 
Mikrosekunden, beinhaltet aber schon das Aktualisieren des 
Adresszählers, das bei dem dem Ladebefehl noch dazu kommt. 
So steht der PUSH-Befehl mit 6.5 Mikrosekunden dem Befehl 
LD (DE),A plus zweimaligem INCrementieren mit 13 Mikro- 
sekunden gegenüber. Dieser Zeitvorteil bedarf wohl keines 
weiteren Kommentares. 


Der Befehl PUSH rr speichert den Inhalt jener Registers ab, die 
hier symbolisch durch rr dargestellt wurde. Diese Register sind 
BC, DE, HL und AF (und IX, IY). 

Der benötigte Schleifenzähler muß nun nur noch auf &2000 
gesetzt werden, da die Anzahl der Durchläufe mit PUSH ır 
halbiert wurde. Es werden anstatt &4000*1 Byte nun 
&2000*2 Byte gespeichert. 
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Bevor wir zum Programm kommen, muß noch eine fatale 
Fehlermöglichkeit ausgeschaltet werden. 

Der Stackpointer (SP) wird im Programmlauf in den Bildschirm- 
bereich gelegt. Damit er nach der Routine wieder mit seinem 
alten Wert belegt werden kann, muß man sich diesen ’merken’. 
Dies geschieht, indem man ihn in zwei Speicherplätze legt, die 
nicht verändert werden dürfen. Wir benutzen die Speicherplätze 
&A030/31, die oberhalb des Bereiches liegen, zu dem BASIC 
Zugriff hat. Nach unserer Programmschleife und vor dem RET- 
Befehl muß der SP seinen alten Wert wieder erhalten, damit eine 
ordentliche Rückkehr ins BASIC gewährleistet ist. Wird dies 
vergessen, folgt der unvermeidliche Absturz des Systems, unser 
bester Indikator für Programmfehler. 

Dies liegt daran, daß der Befehl CALL nn, den wir zum Aufruf 
unserer Routinen verwenden, die Rückkehradresse und einige 
Parameter auf dem Stack ablegt, von dem diese Werte beim 
RET-Befehl wieder heruntergenommen werden. Dazu muß der 
SP logischerweise seinen alten Wert zurückbekommen, nachdem 
er zuvor in den Bildschirmspeicherbereich gelegt wurde. 


Nun das Programm: 


LD (&A030),SP SP retten 

LD SP,&FFFF Stack in Bildbereich 
LD HL,&3FFE zähler setzen 

LD BC,&FFFF Wert zum abspeichern 


weiter PUSH BC Speicher belegen 
DEC HL Zähler DECrementieren 
BIT 5,H Flag setzen 


JP NZ,weiter bedingter Sprung 
LD SP,(&A030) SP aktualisieren 
RET zurück zum Hauptprogramm 


Die Schleife dieses Programmes benötigt 18.5 Mikrosekunden, 
genau wie die der letzten Routine. Hierbei werden aber in der- 
selben Zeit zwei Byte abgespeichert, wogegen es bei der voher- 
gehenden nun eines war. 

Daran zeigt sich besonders deutlich, wie leistungsfähig der 
PUSH-Befehl ist. 
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Manchem wird aufgefallen sein, daß der Befehl LD (&A030),SP 
nur einen Speicherplatz adressiert, wogegen der abzulegende 
Wert des SP zwei Byte lang ist. Doch dafür ist dieser Befehl ge- 
eignet. In den Speicher &A030 wird das niederwertige Byte, in 
den nächsten Speicher, also &A031, das höherwertige Byte ab- 
gelegt. 

Diese Form der Abspeicherung von 2-Byte-Wertenn, erst das 
Low- und dann das High-Byte, wird ausnahmlos angewendet. Es 
wird immer zuerst das niederwertige (L), dann das höherwertige 
(H) Byte abgelegt. Man sollte sich dies genauestens merken, weil 
ohne das Wissen um diese Tatsache sehr viele Unklarheiten auf- 
treten können. 


Beim Befehl LD SP,(&A030), bei dem der Datentransfer in um- 
gekehrter Richtung erfolgt, wird abermals zuerst das L-Byte und 
dann erst das H-Byte übertragen. 


Ein wichtiges Beispiel noch dazu: Soll ein Sprung zur Adresse 
&6533 erfolgen, so lautet der entsprechende Befehl z.B. CD 33 
65. 


Zum Schluß dieses Kapitels möchte ich noch eine sehr schnelle 
Löschroutine erklären. Mit der logischen OR-Verknüpfung wird 
hier das entsprechende Flag gesetzt, auf das der folgende 
Sprungbefehl abfragt. 
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LD (&A020),SP retten des SP 

LD SP,&FFFF SP in Bildschirm 

LD BC,&FFFF Wert laden 

LD HL,&C001 letzte Adresse 

XOR A Akku löschen 

LD (&C001),A letzte Adr. löschen 


WEITER PUSH BC Wert speichern 
OR (HL) Test auf Ende 
JP Z,WEITER bed. Sprung 


LD SP,(&A020) alten SP laden 
RET zurück ins Hauptprg. 


Zuerst wird der Wert des Stack-Pointers, der ja enorm wichtig 
ist, im Register &A020 gesichert. Diese Speicherstelle liegt 
hinter der Löschroutine. 

Nun wird der SP in den Bildschirmbereich gelegt 
(LD SP,&FFFF), das Register BC mit dem abzuspeichernden 
Wert geladen (LD BC,&FFFF) und die Adresse des letzten zu 
belegeneden Speicherplatzes ins Register HL gebracht 
(LD HL,&C001). 

Dann wird der Akku mit 0 geladen, indem man ihn mit sich 
selbst verXORt, eine schnelle und elegante Methode, die man 
sich merken sollte, weil viele Assemblerprogramme solche Tricks 
verwenden, durch die sie dann zwar schneller, aber auch 
schwerer zu durchschauen werden. 

Da der Akku schon einmal null ist, kann man ihn im weiteren 
auch benutzen, um die Speicherzelle &CO001 zu löschen, also mit 
0 zu belegen. Dies ist hier wichtig, weil die Abbruchbedingung 
nur dann einwandfrei funktioniert, wenn dieser Speicherplatz 
und der Akku von Anfang an Null sind. 

Wer hier Verständnisschwierigkeiten hat, sollte einmal den 
Schleifendurchlauf auf dem Papier simulieren, um den Sinn der 
Anweisung OR (HL) zu verstehen. Damit wird zudem direkt 
klar, warum das vorhergehende Löschen unbedingt erforderlich 
ist. 
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In der Schleife wird die Sprungbedingung erzeugt, indem ein 
Vergleich zwischen dem Inhalt des Akkus und dem einer 
Speicherzelle durchgeführt wird. Die Speicherzelle wird indirekt 
über das Register HL ädressiert. 


Das Ergebnis der OR-Verknüpfung ist solange null, wie sowohl 
der Akku als auch die Speicherzelle &C001 gleich null sind. 
Sobald der PUSH-Befehl den Wert &FF in den Speicher &CO001 
gebracht hat, ist das Ergebnis von OR (HL) ungleich Null und 
die Bedingung nicht mehr erfüllt. Damit endet die Schleife. 


Nun will ich noch kurz auf den Zeitbedarf der Schleife 
eingehen. Was noch an Befehlen außerhalb der Schleife anfällt, 
können wir ja, wie bereits bekannt ist, vernachlässigen. 


weiter PUSH BC 6.5 
XOR A 3.5 
JP NZ ‚weiter 5 


Ein Schleifendurchlauf benötigt 15 Mikrosekunden. Das bedeutet 
0.246 sec für den kompletten Bildschirm und lediglich 7.5 
Mikrosekunden pro Byte. 


Mit dem letzten Programm dürften wir eine maximale Effizienz 
beim Belegen des Bildschirmes erreicht haben. Mit einem 
Speicherbefehl (PUSH BC) pro Schleifendurchlauf dürfte keine 
andere Konstruktion schneller arbeiten. Wenn wir allerdings die 
Anzahl der PUSH-Befehle in der Schleife erhöhen, wird der 
zeitliche Anteil der störenden Befehle JP NZ und OR A immer 
kleiner. Bei 10 PUSH-Befehlen pro Schleife entfallen pro Byte 
3.7 Mikrosekunden, während es bei einem PUSH pro Schleife 
noch 7.5 Mikrosekunden waren. Mit jedem PUSH pro Schleife 
mehr nähern wir uns der Grenze von 3.25 Mikrosekunden, was 
ja der Hälfte eines ganzen PUSH entspricht. Leider nähern wir 
uns mit einer solchen Programmiertechnik auch schnell den 
Speichergrenzen des Rechners, so daß hier ein vernünftiges 
Mittel gefunden werden sollte. 
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Die Schleife dürfte nun hinreichend erläutert worden sein, so 
daß schließlich nur noch zu erwähnen wäre, daß vor dem RET- 
Befehl der SP unbedingt aktualisiert werden muß. Dabei wird 
der Stapelzeiger wieder auf seinen ursprünglichen Wert zurück- 
gesetzt, d.h. er weist jetzt wieder auf jene Speicherzellen, in der 
zu Anfang der Routine die Rückkehrparameter abgelegt wurden. 
Ein bekanntes Beispiel in BASIC ist der GOSUB-RETURN- 
Befehl. Erreicht BASIC einen GOSUB-Befehl, so merkt es sich, 
in welcher Zeile dieser stand, damit es bei Erreichen des 
nächsten RETURN-Befehles ’weiß’, wohin es zurückspringen 
muß. Diese Analogie kommt natürlich nicht von ungefähr. Für 
solche Aufgaben steht dem Schneider-Rechner ein eigener 
BASIC-Stack zur Verfügung, der ebenfalls nach dem LIFO- 
Prinzip arbeitet. 


Beim Abspeichern des Inhaltes des Doppelregisters BC sind wir 
natürlich nicht auf den Wert &FFFF angewiesen, den ich bisher 
immer zur Verdeutlichung herangezogen habe. Wir können jeden 
Wert zwischen &01 und &FF nehmen, nur nicht die null. In 
diesem Fall würde es nie zur Abbruchbedingung kommen und 
wir hätten einen wunderschönen Absturz programmiert. 


Wer sich jetzt fit genug fühlt, dies trotzdem zu ermöglichen 
sollte sich sofort daran setzen. Die Befehlsfolge bleibt die 
gleiche, es brauchen nur ein paar Werte geändert zu werden. 
Und nicht verzagen - bis die ersten größeren Erfolge eintreten 
wird der Rechner noch öfter abstürzen, und zum wiederholten 
Male das scheinbar so perfekte Programm als Fehlkonstruktion 
entlarven. 


Wer in die Routine mehrere PUSH-Befehle einbauen will, dem 
sei gesagt, daß auch nicht ein Byte in den Speicherbereich direkt 
unterhalb &C000 gePUSHt werden darf. Die Folge wäre ein nun 
hinreichend bekannter Absturz des Systems. 

Dies liegt daran, daß der Speicherplatz direkt unterhalb von 
&C000, also &BFFF, die Basis des Maschinenstacks ist. 

Der beim Anschalten des Rechners reservierte Stackbereich ist 
&BF00 - &BFFF. 
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Um beim PUSHen nicht unter &C000 zu geraten, kann man z.B. 
HL mit einem höheren Wert belegen. Dies dürfte zunächst 
unklar sein. Eine ’Schreibtischprobe’, d.h. den Programmlauf auf 
Papier simulieren, hilft bei solchen Problemen immer. Natürlich 
sollen Sie dabei nicht den gesamten Bildschirmbereich durch- 
rechnen, sondern nur einen kleinen Teil dessen, um die genaue 
Wirkungsweise zu durchschauen. 

Man sollte sich dabei nicht von dem Irrtum leiten lassen, ein 
solcher Test wäre Kinderkram. Bei Erstellung und Fehlersuche 
ist diese Vorgehensweise absolut üblich und effektiv. 


Hier noch einmal das schnelle Löschprogramm in einen BASIC- 
Lader eingebunden. Ich habe für den absoluten Sprungbefehl 
einen relativen eingesetzt, der die Schleife zwar um 
1Mikrosekunde verlangsamt, dafür die gesamte Routine aber 
relokativ macht. Relokativ bedeutet, daß sie überall im Speicher 
plaziert werden kann. 


5 MODE 2:SUMME=0 

10 FOR I=startwert TO startwert+28 

20 READ WERT$:WERT=VALC"&"+WERT$) 

30 POKE I ,WERT:SUMME=SUMME+WERT:NEXT 

50 IF SUMME<>3682 THEN PRINT "Fehler in DATASs" 
60 DATA ED,73,20,A0,31,FF,FF,O1,FF,FF,21,01,C0,AF 
70 DATA 32,01,C0,C5,86,28,FC,ED,78,20,A0,C9,00,00 


13.4 Die leistungsstarken Befehle des Z80 


Der Z80-Mikroprozessor verfügt über mehrere hundert Befehle. 
Dies erscheint auf den ersten Blick ein kaum überwindbares 
Hindernis zu sein, um sich schnell in diese Technik einzuarbei- 
ten. Aber keine Sorge. Bei näherer Betrachtung stellt sich schnell 
heraus, daß man große Mengen an Befehlen zu Gruppen 
zusammenfassen kann, die praktisch die gleiche Funktion haben, 
nur für die einzelnen Register spezielle Codes besitzen. 


Bevor nun einige wichtige Befehle angesprochen werden, ver- 
einbare ich an dieser Stelle, wie ich im weiteren den Einfluß der 
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Befehle auf das Flag-Register darstellen werde. Unter den 
Kürzeln der Flagnamen stehen einzelne Zeichen die den Einfluß 
auf das jeweilige Flag eindeutig beschreiben. 


SZ HP/VN CC 
Ar a ae a > m/t/z 


.® 


Flag wird dem Ergebnis entsprechend beeinflußt 
Flag bleibt unbeeinflußt 


1: Flag wird gesetzt (unbedingt) 

0: Flag wird zurückgesetzt (unbedingt) 

?: Flag ist nach Operation unbestimmt 

m: Anzahl der Maschinenzyklen 

t Anzahl der Taktzyklen 

z: Angabe des Zeitbedarfs in Mikrosekunden 
b: Nummer eines Bit 


steht für die Register A,B,C,D, E,H,L 


- 
.. 


13.4.1 Einzelbitbefehle 


Nun wollen wir, gut gerüstet, mal eben so ca. 1/3 aller Z80- 
Befehle erklären. 


Da sind z.B. die 168 Befehle, die sich nur mit den einzelnen Bits 
der Register A, B, C, D, E, H und L befassen. Es sind die 
Befehle: 

BITb,r , SETb,r und RESb;r. 


Den Befehl BIT b,r kennen wir ja bereits, wennauch nicht mit 
dieser Form der Bezeichnung. 
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BIT bır 


Dieser Befehl testet das durch die Parameter angegebene Bit 
eines Registers. 


Die Paramater b und r stehen in der allgemeinen Darstellungs- 
form der Befehle für Bitnummer (b) und Registername (r), 
wobei das höchstwertige Bit eines Registers immer die Nummer 
7 ist und ganz links steht, während das niederwertigste Bit 
immer die Nummer 0 hat und im Byte ganz rechts zu finden ist. 
Das Kürzel r steht für die 8-Bit-Registernamen, die wohl nicht 
mehr aufgezählt werden müssen. 


SZ HP/VN 
Br 1 EN 2/8/4 


SET b;r 


Dieser Befehl setzt das entsprechende Bit des jeweiligen 
Registers auf den Wert I. Die Bedeutung der Parameter sind ja 
bereits bekannt. 


S ZHP/VN C 
2-2... - 2/8/4 


RES b,r 


Der Befehl setzt das beschriebene Bit zurück, also auf den Wert 
0. 


S ZHPYVN C 
=... - 2/8/4 


So, damit wären tatsächlich etwa ein Drittel aller Befehle erläu- 
tert. Auf ähnliche Art und Weise ist es möglich, ein weiteres 
Drittel kurz und bündig zu erklären. Was dann noch übrig 
bleibt, erweist sich allerdings deutlich zeit- und papieraufwendi- 
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ger. Es ist aber nicht notwendig, von Anfang an alle Befehle zu 
kennen. Man eignet sich diese automatisch an, wenn man mal 
vor einem Problem steht, welches mit den bekannten Mitteln 
nicht oder nur umständlich zu lösen ist. Dann blättert man im 
Befehlsverzeichnis und pickt sich den entsprechenden Befehl 
heraus, der eine leichtere Problemlösung ermöglicht. 

Ein entsprechendes Verzeichnis würde den Rahmen dieses 
Buches allerdings sprengen. Indes verweise ich Assemblerfreunde 
auf entsprechende Literatur, die für wenig Geld zu erstehen ist. 
Was aber dieses Kapitel betrifft, ist eine solche Anschaffung 
nicht notwendig, weil alle verwendeten Befehle ausreichend 
erklärt werden. 


Doch bevor wir weitere Befehle kennenlernen, sollen erst alle 
Einzelbitbefehle erwähnt worden sein. Es gibt nämlich noch: 


BIT b,(HL) BIT b,(IX+d) BIT b,(IY+d) 


Kurz beschrieben werden soll der Befehl: 
BIT b,(HL) 


Das Register HL beinhaltet hier die Adresse des Speichers (hier 
also kein Register der CPU, sondern ein Speicherplatz), dessen 
Bit Nummer b getestet werden soll. Diese indirekte Adressierung 
kann einem viel zeitraubendes Hin- und Herladen ersparen. 


SZ .HP/VN C 
"A ae A a 3/12/6 
SET b(HL) / RES b,HL) 


Diese Befehle setzen das Bit Nummer b des durch HL adres- 
sierten Registers auf 1 bzw. auf 0. 

SZ HP/VN C 

a a ae 4/15/7.5 


Tj 
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13.4.2 Rotations- und Schiebebefehle 


Alle Rotations- und Schiebebefehle (bis auf die eine, berühmte 
Ausnahme) haben in ihrer Funktion folgende Punkte gemeinsam: 


a) 


b) 


c) 


d) 


RLs 


Der gesamte Inhalt des angesprochenen Registers 
wird um eine Stelle nach links/rechts verschoben. 
Nach einem Befehl, der den Inhalt nach links ver- 
setzt, steht der alte Inhalt des Bit O nun in Bit 1, der 
alte Inhalt von Bit 1 in Bit 2 usw. 


Das letzte zu versetzende Bit wird ins Carry-Bit 
übertragen, was sich im weiteren nicht als Notlösung 
aus Platznot sondern als äußerst zweckmäßig erwei- 
sen wird. Bei den Bewegungen nach links ist dies das 
Bit 7, bei den Bewegungen nach rechts das Bit 0. 


Logischerweise ist bei diesen Befehlen das Carry- 
Flag immer entsprechend beeinflußt. 


Alle Rotations- und Schiebebefehle sind für fol- 
gende Operanden, die durch ’s’ dargestellt werden, 
anwendbar: 


ABCDEHL (HL) (IX+D) (IY+D) 


Der Inhalt der durch den Operanden bezeichneten Stelle wird 
nach links verschoben. Dabei gelangt das Bit 7 ins Carry, 
während dessen Inhalt nach Bit 0 verschoben wird. 


SZ HP/VN C 
. 0 800 * 
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Der Inhalt der durch den Operanden bezeichneten Stelle wird 
nach rechts verschoben. Dabei gelangt das Bit O0 ins Carry, 
während dessen Inhalt nach Bit 7 verschoben wird. 


S ZHP/VN (C 
* * 0 *% 0 % 


RLCs 


Der Inhalt der durch den Operanden bezeichneten Stelle wird 
nach links verschoben. Dabei gelangt das Bit 7 zurück nach Bit 
0 und zusätzlich ins Carry. 


SZ HP/VN C 
a0 800g * 


RRC s 


Der Inhalt der durch den Operanden bezeichneten Stelle wird 
nach rechts verschoben. Dabei gelangt das Bit 0 in das Bit 7 und 
zusätzlich ins Carry. 


Ss ZEHPVN € 
a. 080g * 


SLA Ss 


Dieser Befehle schiebt den Inhalt der durch den Operanden 
bezeichneten Stelle s nach links. Das frei werdende Bit 0 wird 
unbedingt zurückgesetzt, d.h. mit 0 belegt. Das Bit 7 wird ins 
Carry geschoben. 

SZ HP/VN C 

* * 0 0 * 


* 
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SRAS 


Dieser Befehle schiebt den Inhalt der durch den Operanden 
bezeichneten Stelle s nach rechts. Das Bit 0 wird ins Carry 
geschoben. Das Bit 7 bleibt unverändert. 


SZ HP/VN CC 
„eo .*g0 * 


SRLS 


Dieser Befehle schiebt den Inhalt der durch den Operanden 
bezeichneten Stelle s nach rechts. Das Bit 0 wird ins Carry 
geschoben. Das Bit 7 wird unbedingt zurückgesetzt, d.h. mit 0 
belegt. 

SZ HP/VN CC 

* * 0 0 + 


* 


Für die beschriebenen Rotations- und Schiebebefehle gilt für 
die verschiedenen Operanden ’s’ folgende Zeittabelle: 


FR m tz 
r 28.4 
(HL) 4 15 7,5 
(IX+d) 6 23 11 

1 


„2 
(IY+d) 6 23 11,5 


Anwendungen der Rotations- und Schiebebefehle: 


Nachdem wir nun einige, wohlgemerkt noch nicht alle, R-S- 
Befehle kennengelernt haben, wenden wir uns jetzt praktischen 
Beispielen zu, mit denen man den Nutzen dieser Befehle dar- 
stellen kann. 
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Aus verschiedensten Gründen stehen dem Datentransfer 
manchmal nur wenige Leitungen zur Verfügung, von denen 
dann lediglich eine Leitung für die eigentlichen Daten gedacht 
ist. Über eine Leitung kann zur selben Zeit natürlich immer nur 
die Dateninformation eines einzigen Bits gelangen. Diese Form 
der Datenübertragung, also Bit für Bit, heißt seriell. 

Wir wollen uns nicht mit Einzelheiten der seriellen Datenüber- 
tragung befassen, sondern lediglich verstehen, wie man ein Byte 
in einzelne Bits zerlegt, so daß diese dann zur seriellen Daten- 
übertragung verfügbar sind. An einem kurzen Beispiel ist dies 
leicht erklärt. 


Vorausgesetzt wird, daß sich das zu übertragende Byte im 
Register D befindet. 


LD B,8 zähler 8-Bit pro Byte 
weiter XOR A Akku löschen 
SCA D Bit 7,D ins Carry 
JR NC,M1 überspringe folg.Befehl 
LD A,1 Akku ungleich 0 
M1 CALL ausgabe springe zur Senderoutine 
DEC B zähler aktualisieren 
JP NZ,weiter nächstes Bit 
RET 


Zuerst wird der Zähler B mit dem Wert 8 belegt, damit wir die 
Anzahl der zu übertragenden Bits kontrollieren können. Dann 
wird der Akku mittels XOR A gelöscht. Mit SLA D wird der 
Inhalt des Registers D um eine Stelle nach links verschoben, 
wobei Bit 7 ins Carry rutscht. Beinhaltete das ehemalige Bit 7 
eine 0, so ist auch das Carry-Bit nun 0. Damit der Befehl 
JR NC,MI positiv aus, der Sprung nach MI wird ausgeführt. 
Somit bleibt der Akku unverändert, also null. Wäre das ehe- 
malige Bit 7 mit dem Wert 1 belegt gewesen, stünde nun im 
Carry ebenfalls eine 1 und der Befehl JR NC,MI fiele negativ 
aus, würde also nicht ausgeführt. Damit würde im folgenden 
Befehl LD A,1 der Akkumulator mit 1 belegt. 


Tips & Tricks zur Maschinensprache 159 


Bei der Marke MI wird nun mittels CALL ausgabe zu einer 
Ausgaberoutine verzweigt, die so geartet sein sollte, daß sie eine 
logische 0 sendet, wenn der Akku gleich null ist, oder die eine 
logische 1 sendet wenn der Akku ungleich null ist. Wie dies im 
einzelnen geschieht und wie logisch 1 und 0 aussehen, ist zum 
Verständnis an dieser Stelle unwesentlich. 


Wichtig ist, zu erkennen, wie man mittels des Befehles SLA D 
das Carry-Bit so beeinflußt, daß man aufgrund seines Inhaltes 
einen Sprungbefehl beeinflussen kann, und damit Parameter für 
die Senderoutine entsprechend gestalten kann. 


Ein anderes eindrucksvolles Beispiel für Verwendbarkeit des 
SLA r ist die multiplikative Verdoppelung eines Register- oder 
Speicherinhaltes. 


Zuerst aber ein Beispiel, wie man eine solch einfache Multipli- 
kation nicht programmieren sollte: 13*2 


LD B,13 Multiplikant 

LD c,2 Multiplikator 

XOR A Akku loeschen 
weiter ADD A,B additive Mult. 

DEC C zähler aktual. 

JP NZ,weiter Sprung bei c<>0 

RET 


Zuerst werden Multiplikand und Multiplikator in die Register B 
bzw. C gebracht. Dann wird der Akku gelöscht, in dem das 
Ergebnis aufaddiert wird. In der Schleife ’weiter’ wird der Akku 
dann C-mal mit dem Wert des Registers B addiert. 


Das folgende Listing führt zum gleichen Ergebnis: 
LD A,13 Akku=13 


SIA A rotiere A nach links 
RET 
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Wir wollen uns die Funktion dieser Multiplikationsweise kurz 
anhand der binären Schreibweise verdeutlichen. 


Register A 00001101 = 8+4+1=13 (vorher) 
Register A 00011010 = 16+8+2=26 (nachher) 


Rechts neben den Binärzahlen sind die Summanden der gesetzten 
Binärstellen in dezimaker Form aufgeführt. Verschiebt man die 
‚Binärstellen nach links, so bekommt jede Stelle die nächst 
höhere Wertigkeit, nämlich immer die doppelte. Wenn sich also 
die Summanden verdoppeln, verdoppelt sich folgerichtig auch 
die resultierende Summe. 


Frage: Was passiert, wenn die zu verdoppelnde Zahl größer als 
127 ist? 


Es tritt ein Carry auf. Um aber dieses Ergebnis ordentlich ver- 
walten zu können, muß ein zweites Register her, um anfallende 
Carrys aufzufangen. 

Anhand des folgenden Beispieles 160*4, in dem das Register L 
mit 160 belegt und zwei mal verdoppelt wird, soll das 
Zusammenspiel von zwei Registern verdeutlicht werden. 


LD H,O Reg. H löschen 
LD L,160 "1 =160 
LD B,2 zähler 

weiter SIA L schiebe L links 
SIA HH schiebe H links 
OR A Carry löschen 
DEC B Zähler aktual. 
JP NZ ‚weiter 
RET 


Zuerst wird H gelöscht, L mit 160 geladen und B als Zähler 
gesetzt. In der folgenden Schleife wird immer zuerst das L- 
Register geschoben, weil ja dessen Inhalt beim Schieben das 
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Carry setzt, welches erst dann in H hineingeschoben werden soll. 
Da man die Register H und L als ein 16-Bit-Register behandeln 
kann, hat man nach dem Durchlauf dieser Routine in HL das 
korrekte Ergebnis. 

Der Befehl OR A steht nur der Vollständigkeit halber in der 
Schleife. Er soll ein mögliches Carry von H löschen, weil dieses 
ansonsten beim erneuten Schleifendurchlauf in Bit 0 des 
Registers L geschoben würde. 


Zur Veranschaulichung dieser ungewohnten Rechenweise ist 
dieses Beispiel im folgenden noch einmal binär dargestellt. 


Register H L 
00000000 10100000 = 128+ 32=160 (vorher) 
00000001 01000000 
00000010 10000000 = 512+128=640 (nachher) 


Wer schon einmal eine Assembler-Befehlsliste durchgestöbert 
hat, wird dabei erkannt haben, daß der Z80 keine 16-Bit- 
Rotations- oder Schiebebefehle zur Verfügung stellt. 


Und er hat doch einen. 


In den vorhergehenden Beispielen wurde u.a. ein nicht vorhan- 
dener Multiplikationsbefehl durch Linksschieben eines Register 
substituiert. Nun drehen wir den Spieß um, und ’erzeugen’ uns 
einen Schiebebefehl mit einem Additionsbefehl. 


Wie wir wissen, kann man ja das Doppelregister HL als Quasi- 
16-Bit-Akkumulator betrachten. Zu HL kann man die Register 
BC, DE, SP und HL addieren. Da man HL mit sich selbst addi- 
tiv verknüpfen kann, was ja der Multiplikation mit dem Faktor 
2 entspricht, muß das Ergebnis dem eines Linksschiebebefehls 
entsprechen. 
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Der 16-Bit-Befehl ADD HL,HL entspricht prinzipiell also dem 
8-Bit-Befehl SLA r. Die Inhalte der betreffenden Register 
werden nach links geschoben, das höchstwertige Bit kommt ins 
Carry und in das niederwertigste wird eine 0 geschoben. 


13.4.3 16-Bit- Arithmetikbefehle 
ADD HL,3rr 


Der Inhalt des durch rr bezeichneten Doppelregisters wird mit 
dem Inhalt von HL addiert und im Register HL abgelegt. Für rr 
kommen die Register BC, DE, HL und SP in Frage. Das Half- 
Carry-Bit wird durch einen Übertrag von Bit 11 nach Bit 12 
gesetzt, d.h. vom niederwertigen Nibble des Registerss H zum 
höherwertigen. Es wird nicht angezeigt, ob von L nach H ein 
Übertrag entsteht. 


SZ HP/VN <C 
0 * 3/11/5.5 


Mit diesem Befehl kann auf einfache Weise eine nicht im Z80 
implimentierte 16-Bit-Rotation verwirklichen. 


Wie bei dem echten Akkumulator kann man mit dem Doppel- 
register HL neben der einfachen Addition auch eine mit Carry 
ausführen. Der Befehl dazu lautet: 


ADC HL,3rr 


Die Inhalte der Register HL und des durch rr dargestellten 
Doppelregisters werden addiert. Zu dieser Summe wird noch der 
Inhalt des Carry-Flags addiert. Für rr kommen die Register BC, 
DE, HL und SP in Frage. Bis auf das N-Flag werden alle Flags 
entsprechend dem Ergebnis beeinflußt. 


Ss: zZ HPVYN € 
son: up SE. ZER ı Di 4/15/7.5 
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Mit dem folgenden 16-Bit-Befehl sind dann alle arithmetischen 
Fähigkeiten des HL-Akkus beschrieben. 


SBC HL,rr 


Der Inhalt des mit rr gekennzeichneten Doppelregisters und der 
Übertrag werden vom Inhalt des Registers HL subtrahiert. Das 
Ergebnis dieser Subtraktion wird wieder in HL abgelegt. Für ’rr’ 
können die Register BC, DE, HL und SP eingesetzt werden. Bis 
auf das N-Flag werden alle Flags entsprechend dem Ergebnis 
beeinflußt. 


SZ .HP/VN C 
DEE EN NE 4/15/7.5 


13.4.4 Block-Befehle 


Wenn man zusammenhängende Speicherbereiche des RAM an 
einen anderen Platz transferieren will, stehen einem dazu die 
wohl leistungsfähigsten Befehle des Z80 zur Verfügung. Es sind 
die Befehle: 


LDI Laden mit INCrementieren 
LDIR Laden mit INCrementieren mit Abbruch 
LDD Laden mit DECremenetieren 


LDDR Laden mit DECremenetieren mit Abbruch 


Jeder dieser Befehle besteht im Prinzip aus mehreren 
Assemblerbefehlen, die nacheinander ablaufen. 


164 PC Ti Tricks Bd. II 


Blocktransfer-Befehle 
LDI 
LDI LD (DE),(HL); INC HL; INC DE; DEC BC 


Der Inhalt des Speicherplatzes, der durch HL angegeben ist, 
wird in den Speicherplatz geladen, welcher durch DE adressiert 
ist. Dann werden die Doppelregister HL und DE INCrementiert. 
Zum Schluß wird dann BC DECrementiert. 


S Z HP/VN C 
Er ı a a  E 4/16/8 


LDIR 
LDI LD (DE),(HL); INC HL; INC DE; DEC BC bis BC=0 


Der Inhalt des Speicherplatzes, der durch HL angegeben ist, 
wird in den Speicherplatz geladen, der durch DE adressiert ist. 
Dann werden die Doppelregister HL und DE INCrementiert. 
Zum Schluß wird dann BC DECrementiert. 

Diese Befehlssequenz wird solange wiederholt, bis das Register 
BC zu null DECrementiert wurde. 


S ZHP/VN C 
- - 00909 - 4/16/8 (BC=0) 
5/21/10.5 (BC<>0) 
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LDD 
LDI LD (DE),(HL); DEC HL; DEC DE; DEC BC 


Der Inhalt des Speicherplatzes, der durch HL angegeben ist, 
wird in den Speicherplatz geladen, der durch DE adressiert ist. 
Dann werden die Doppelregisteer HL und DE DECrementiert. 
Zum Schluß wird dann BC DECrementiert. 


SZ HP/VN C 
= Ge TEE. ER > 4/16/8 


LDDR 
LDI LD (DE),(HL); DEC HL; DEC DE; DEC BC bis BC=0 


Der Inhalt des Speicherplatzes, der durch HL angegeben ist, 
wird in den Speicherplatz geladen, der durch DE adressiert ist. 
Dann werden die Doppelregister HL und DE DECrementiert. 
Zum Schluß wird dann BC DECrementiert. 

Diese Befehlssequenz wird solange wiederholt, bis das Register 
BC zu null DECrementiert wurde. 


S ZHP/VN C 
- - d0909 - 4/16/8 (BC=0) 
5/21/10.5 (BC<>0) 


Hier noch einmal eine knappe Zusammenfassung: 


LDI LD (DE), (HL); INC HL; INC DE; DEC BC 

LDIR LD (DE),(HL); INC HL; INC DE; DEC BC bis BC=0 
LDD LD (DE), (HL); DEC HL; DEC DE; DEC BC 

LDDR LD (DE),(HL); DEC HL; DEC DE; DEC BC bis BC=0 


Für alle Besitzer eines CPC 464 oder 664, die etwas neidvoll auf 
die zusätzlichen Bankbefehle des 6128 schauen, ist die folgende 
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Routine gedacht, die das Kopieren von Speicherblöcken ermög- 
licht. 


LD BC ,&4000 Zähler setzen 
LD DE ,&C000 Zieladresse 

LD HL,&4000 Quelladresse 
LDIR Blockladebefehl 
RET 


Sie können dieses Hochleistungsprogrämmchen mit dem folgen- 
den BASIC-Lader eingeben: 


5 MODE 2:SUMME=O 

10 FOR I=startwert TO startwert+11 

20 READ WERT$:WERT=VAL("&"+WERT$) 

30 POKE I ,WERT:SUMME=SUMME+WERT :NEXT 

40 IF SUMME<>985 THEN PRINT "Fehler in DATAs" 
50 DATA 01,00,40,11,00,40,21,00,C0,ED,BO,C9 


Nachdem Sie die Routine mit diesem Programm geladen haben, 
starten Sie es mittels CALL startwert. 

Außer einer READY-Meldung ist noch nichts zu erkennen. 
Diese Routine hat nämlich den Inhalt des Speicherblock 3, also 
den Bildschirm-Speicherbereich in den Block 1 des RAM 
kopiert. 

Tauschen Sie jetzt bitte die unterstrichenen Werte der DATA- 
Liste gegeneinander aus. Es sind die High-Bytes der Block- 
Anfangsadressen. Nach dem erneuten Start des Ladeprogramms 
wird durch CALL startwert der Block 1 in den Bildschirm- 
bereich zurück kopiert. Bevor Sie allerdings mit CALL starten, 
sollten Sie den Bildschirm kurz mit MODE 2 löschen, damit der 
Effekt besser zu erkennen ist. 
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Wohin man den Bildschirmbereich kopiert, bleibt Ihnen über- 
lassen. Sie sollten nur darauf achten, daß nach unten keine 
Kollision mit BASIC-Programmen und nach oben keine Über- 
schneidungen mit dem vom Betriebssystem reservierten Bereich 
erfolgen. Die Länge ist ebenfalls frei zu wählen. Praktischer- 
weise habe ich zur Demonstration die Länge des Bildschirm- 
speichers gewählt. 
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14. Einige Maschinenroutinen zur Bildschirm- 
behandlung 


14.1 Weiches Bildschirmscrollen 


Wenn der Rechner bei einer Ausgabe auf dem Bildschirm an 
den unteren Rand gelangt, schafft er sich neuen Platz für die 
Ausgabe, indem er den Bildschirminhalt um jeweils eine 
Schriftzeichenhöhe nach oben rückt. Die Schriftzeichenhöhe 
beträgt acht Pixelreihen. Der Rechner verschiebt dabei aber 
nicht die Speicherinhalte, sondern ändert den Offset. 

Der Speicherplatz, dessen Inhalt die linke obere Ecke darstellt, 
ist dann nicht mehr &C000. Ein anderer Speicher wird nun als 
Bildschirmbasis benutzt. 

Mit folgendem Minilader können Sie diese Art von Scrollen aus- 
probieren: 


10 FOR 1%=&A000 TO &A005 

20 __READ WERTS:WERT=VALC"&4WERTS) 
30 __POKE I%,WERT 

30 NEXT 

40 DATA 06,01,C0,40,BC,C9 


Soll der Bildschirm herunter gescrollt werden, tauschen Sie den 
gekennzeichneten Wert gegen 0 aus. Sie sollten immer darauf 
achten, daß der Bildschirm nicht bereits gescrollt ist, da es sonst 
durch den verschobenen Offset zu unbrauchbaren Ergebnissen 
kommen kann. 

Im folgenden ist ein BASIC-Lader aufgeführt, der ein Scrollen 
realisiert, das jede Pixelreihe einzeln verschiebt. Der Inhalt wird 
hierbei oben aus dem Bidschirm herausgescrollt. 
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10 MODE 2:SUMME=0 
20 FOR 1%=8A000 TO &A036 

30 __READ WERTS:WERT=VALC"&N+WERT$) 

40 POKE 1%, WERT :SUMME=SUMME+WERT 

50 NEXT 

60 IF SUMME<>5695 THEN PRINT"Fehler in DATAs" 

100 DATA 01,C7,C7,21,00,C0,22,00,80,C5,2A,00,B0,54,5D,CD 
110 DATA 26,BC,22,00,B0,01,50,00,ED,B0,C1,CD,09,BB,38,15 
120 DATA 00,20,E6,C5,11,80,FF,21,36,A0,01,50,00,ED,B0,C1 
130 DATA 0E,C7,05,20,CE,C9,00,00,00 


Soll der Bildinhalt unten herausscrollen, so ersetzen Sie die 
Zeilen 100 und 110 wie folgt: 


100 DATA 01,C8,C7,21,80,FF,22,00,80,C5,2A,00,80,54,5D,CD 
110 DATA 29,BC,22,00,80,01,50,00,E0,B0,C1,CD,09,BB,38, 15 
120 DATA 00,20,E6,C5,11,00,C0,21,36,A0,01,50,00,ED,B0,C1 


Die Prüfsumme ist in diesem Fall 5699. 


Wenn nun nicht der gesamte Bildbereich gescrollt werden soll, 
sondern nur ein Teil am linken Rand, so geben Sie z.B. folgende 
Befehle nach dem obigen Programmlauf ein: 


POKE &A016,10 : POKE &A02B,10 


Die 10 steht dabei für die Breite des zu scrollenden Bereiches 
am linken Bildrand. 


Nun noch kurz das obige Programm in abgespeckter und 
beschleunigter Form. 

Es ist deutlich schneller, kann aber nicht abgebrochen werden. 
Es stoppt automatisch nach dem Rausscrollen des gesamten 
Screens. Das oben benutzte Ladeprogramm kann verwendet 
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werden. Die FOR-NEXT-Schleife läuft dabei von &A000 - 
&AO2F und die SUMME ist 4368. Die DATA-Zeilen werden 
gegen die folgenden getauscht: 


100 DATA 01,C8,C8,21,80,FF,22,00,80,C5,2A,00,80,54,5D,01 
110 DATA 00,08,ED,42,CB,74,20,04,01,B0,3F,09,22,00,80,01 
120 DATA 50,00,ED,80,C1,00,20,E1,0E,C8,05,20,D6,C9,00,00 


14.2 Seitliches Scrollen der untersten Bildschirmzeile 


Zur hervorhebenden Darstellung von Textelementen gibt es 
verschiedene Mittel. Zum einen die inverse oder andersfarbige 
Darstellung von Zeichen, das Einrahmen und Unterstreichen mit 
markanten Sonderzeichen, die Anzeige in blinkender Form usw. 
Einen interessanten, neuen Effekt bietet eine Laufanzeige, die 
Text oder Textabschnitte unübersehbar verschiebt. 

Mit dem folgenden Programm kann die unterste Bildschirmzeile 
nach links gescrollt werden, wobei der links aus dem Bildbereich 
austretende Text von rechts wieder hereingescrollt wird. 


A000 117702 ANF LD DE,&277 ein Durchgang 

A003 D5 PUSH DE 

A004 114F08 LD DE ,&84F Summand-Anf.Adresse 
A007 ED5341A0 LD (&A0O41),DE Summand. retten 
A0OOB O1084F M2 LD BC,&4F08 Zähler-8-2./&4F-Sp. 
AODE Z2ICEC7 LD HL,&C7CE Anf .Adresse 

A011 B7 OR A lösche Carry 

A012 CB16 Mi RL (HL) 

A0O14 28 DEC HL neue Adresse 

A015 05 DECE B Zeile zu Ende? 

A016 2OFA JR NZ,M1 

A018 114F00 LD DE, &004F 

A01B 3005 JR NC,M3 Carry Zeilenende überneh? 
A01D 19 ADD HL,DE alte erste Adresse 
AOIE CBC6 SET 0,CHL) rechtes Bit setzen 
A020 1803 JR M4 überspringen RES 
A022 19 M3 ADD HL,DE alte erste Adresse 
A023 CB86 RES 0,CHL) rechtes Bit löschen 
A025 ED52 M4 SsBC HL,DE 
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A027 O64F LD B,&4F Zeilenzähler neu 

A029 EDS5B41AO LD DE,(&A041) Summand holen 

A02D 19 ADD HL,DE 

AO2E 0D DEC c 

A0D2F 20E1 JR NZ,M1 

A031 DI POP DE Zähler Anzahl -Sp. 

A032 1B DEC DE 

A033 CDO9BB CALL &BB09 Taste gedrückt? 

A036 3808 JR C,ENDE Abbruch 

A038 D5 PUSH DE 

A039  CB7A BIT 7,D Abfrage Zählerende 
AO3B 28CE JR Z,M2 

A03D Di POP DE Stackkorrektur 

AO3E 18C0 JR ANF neue Runde 

A040 c9 ENDE RET 

A041 Speicher für Summanden 
A042 Speicher für Summanden 


Der Bildschirm darf vor dem Aufruf dieser Routine nicht 
gescrollt werden, da sonst der Offset verändert würde. Das 
Programm ist für den Betrieb in MODE 2 ausgelegt. In den 
beiden übrigen MODESs entstehen unbrauchbare, aber interes- 
sante Effekte. 

Mit den relativen Sprungbefehlen ist dieses Programm prinzipiell 
relokativ. Es kann überall im freien Speicherbereich des RAM 
plaziert werden. Vorsicht ist aber bei den Speicherplätzen 
&A041 und &A042 geboten. In diese wird das Register DE 
zwischenzeitlich gespeichert. Sollte das Programm einmal an eine 
andere Stelle geladen werden, so sollten auch diese beisen 
Speicherplätze entsprechend verändert werden. 
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Der BASIC-Lader: 


10 MODE 2:SUMME=0 

20 FOR 1=&A000 TO &A042 

30 READ WERT$:WERT=VAL("&"+WERT$) 

40 POKE 1,WERT:SUMME=SUMME+WERT 

50 NEXT I 

60 IF SUMME<>6591 THEN PRINT"Fehler in den DATA-Zeilen" 
70 END 

100 DATA 11,77,02,05,11,4F,08,ED,53,41,A0,01,08,4F,21 
110 DATA CE,C7,87,CB,16,28,05,20,FA,11,4F,00,30,05,19 
120 DATA CB,C6,18,03,19,CB,86,E0,52,06,4F,ED,5B,41,A0 
130 DATA 19,00,20,E1,01,18,CD,09,88,38,08,05,CB,7A,28 
140 DATA CE,D1,18,C0,C9,00,00,00 


Nachdem Sie das Ladeprogramm gestartet haben, ist die Routine 
im Speicher abgelegt und kann mit CALL &A000 gestartet bzw. 
mit einem beliebigen Tastendruck abgebrochen werden. Das 
Ladeprogramm wird nun nicht mehr gebraucht und kann mit 
DELETE I- gelöscht werden. Wenn Sie den Speicherbereich der 
Maschinenroutine mittels MEMORY &A000-1 geschützt haben, 
kann das Ladeprogramm auch mit NEW gelöscht werden. 


Beispiel für die Nutzung der Routine: 


10 LOCATE 5,25 : PRINT"Wiederholen Sie die Eingabe" 
20 CALL &A000 

30 LOCATE 1,25 : PRINT STRING$C8O," "); 

40 MODE 2 

50 INPUT"Neue Eingabe";A 

60 REM ...etc... 


14.3 Screencopy für CPC 464/664 


Dieser Abschnitt ist besonders für diejenigen unter den CPC- 
Besitzern gedacht, die einen 464 oder einen 664 ihr eigen 
nennen und damit nicht die Möglichkeiten bezüglich der Bild- 
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schirmverwaltung haben, die den Besitzern eines 6128 zur 
Verfügung stehen. 


Mit SCREENCOPY kann man den Inhalt eines Blocks des RAM 
in einen anderen Block kopieren. Ein Block ist ein zusammen- 
hängender Speicherbereich mit einer Länge von 16 KByte. Da 
der RAM-Bereich des 464/664 insgesamt 64 KByte groß ist, 
besteht er aus vier Blocks. 


Anfangsadresse Endadresse 


Block 0 &0000 &3FFF 
Block 1 &4000 &4FFF 
Block 2 &8000 &BFFF 
Block 3 &C000 &FFFF 


Obwohl nach dem Einschalten des Rechners dem Bediener mehr 
als 42000 Byte frei zur Verfügung stehen, ist nur der Block 1 
völlig frei zu nutzen. 


Anmerkungen zu den Speicherblocks: 


Im Block O liegen in den unteren (ca. 60) Speicherplätzen 
’lebensnotwendige’ Routinen des Betriebssystems. Ansonsten ist 
auch dieser Block frei verfügbar. 

Warum ’lebensnotwendig’?? 

Bringen Sie einmal den Wert 0 in den Speicher 8 mit POKE 8,0, 
aber nur wenn keine wichtigen Daten oder Programme im 
Rechner sind!!! 


Wie schon erwähnt, ist Block 1 komplett verfügbar. 


Im Block 2 sind die Speicherplätze &8000 - &A67B nach dem 
Einschalten zu benutzen. Der Bereich von &A67C bis &BFFF 
(dez. 42620 - 49151) ist ebenfalls unverzichtbar für das Be- 
triebssystem. Veränderungen in diesem Bereich sollten wie auch 
im unteren Bereich mit großer Vorsicht geschehen, d.h. es 
sollten keine wesentlichen Daten im Rechner sein, und die 
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Diskette sollte entfernt werden. Diese könnte bei einem System- 
absturz ’übergebügelt’ werden. 


Der Block 3 enthält die Bildschirminformationen. Verändert man 
seinen Inhalt, so verändert sich auch die Anzeige. 


Wie der Befehl SCREENCOPY arbeitet, kann man dem Beispiel- 
programm entnehmen, das im Anschluß an die Beschreibung des 
Maschinenbefehls LDIR gezeigt wurde. In diesem Beispiel- 
programm wurde der Bildschirmspeicherbereich in den Block 9 
kopiert. Wenn in diesem Block 1 erst einmal ein Bildinhalt 
gespeichert ist, so kann man mit einem Kniff innerhalb weniger 
tausendstel Sekunden die Bildschirmanzeige umschalten. 


Erklärung: 


Nach dem Einschalten oder nach einem RESET des Rechners 
holt sich die Hardware die Informationen für den Monitor aus 
Block 3, also aus dem Speicherbereich, der mit der Adresse 
&C000 beginnt. Wenn man die Anfangsadresse jedoch verändert, 
z.B. auf den Wert &4000 (erste Adresse von Block 1) wird das 
Bild aus den Daten der 16383 auf &4000 folgenden Speicher- 
plätzen zusammengesetzt. 

Liegt dort bereits ein anderer Bildinhalt, so wird dieser nun 
angezeigt. 

Mit folgendem Programm können Sie die Bildschirmbasis 
verändern: 


10 FOR 1=&A000 TO &A005 

20 READ WERT$ 

30 WERT=VAL("&"+WERT$):POKE I,WERT 

40 NEXT 

50 DATA 3E,00,C0,08,BC,C9 

60 INPUT"Welcher Block 17/3 ",B 

70 IF B=1 THEN POKE &A001,&40 ELSE POKE &A001,&C0 
80 CALL &A000 
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Das disassemblierte Listing der Maschinenroutine sieht folgen- 
dermaßen aus: 


A000 3ZE xx LD A,xx 
A002 CD 08 BC CALL BC08 
A005 c9 RET 


In der ersten Zeile wird der Akku mit dem signifikanten Byte 
der Bildschirmadresse geladen. Im Akku wird also der Parameter 
für die Routine SCR SET BASE übergeben, die mit 
CALL &BC08 aufgerufen wird. Das RETurn in der letzten Zeile 
bedarf keines Kommentares mehr. 

Die POKE-Befehle in Zeile 70 des BASIC-Programmes dienen 
also dazu, das High-Byte der gewählten Bildschirm-Anfangs- 
adresse so in den Speicher zu POKEn, daß der Akku-Ladebefehl 
einen sinnvollen Wert bekommt. 


Eine interessante Variante für den Bildinhalt entsteht, wenn man 
nach dem Starten des BASIC-Programmes den Ablauf mit zwei- 
maligem ESC abbrich, MODE 2 und dann den Befehl 
CALL &BC08 eingibt. 

Auf dem Bildschirm erscheinen mehrere Reihen von Punkten. 
Die oberste zeigt die ’lebensnotwendigen’ Systemroutinen und 
die anderen vier Reihen stellen das BASIC-Programm dar, mit 
dem Sie die Bildschirm-Anfangsadresse verändert haben. 

Sie haben nämlich den Bildbereich in den ersten Block (Block 0) 
gelegt und sehen nun die dort abgelegten Programmteile. 

Geben Sie nun einmal ein paar BASIC-Zeilen mit Zeilen- 
nummern ein. Beachten Sie die Veränderungen wenn Sie die 
Eingaben mit der ENTER-Taste bestätigen. 


14.4 SCREENSWAP für den 464/664 


Der Unterschied von SCREENCOPY und SCREENSWAP besteht 
darin, daß beim SWAP die Inhalte der angegebenen Bereiche 
ausgetauscht werden. Beim COPY wird ein Bereich in den 
anderen kopiert, worauf beide Inhalte identisch sind. 
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Wir wissen, daß zum Austauschen der Inhalte zweier Variablen 
eine dritte als Zwischenspeicher gebraucht wird. 

Beispiel: Vertausche Inhalte von A und B (mit x als Zwischen- 
speicher) 


x=A : A=B: B=x 


Wollen wir nun zwei Speicherblöcke austauschen, in denen 
Bildinhalte liegen, so haben wir keinen vollständigen dritten 
Block als Zwischenspeicher zu Verfügung. Deshalb vertauschen 
wir die Inhalte in kleineren Stücken. Diese Stücke sind in 
folgendem Beispiel &100 Byte lang. Sie könnten auch eine 
andere Länge haben, doch zu kurz sollten sie nicht sein, da die 
Routine dann zu langsam werden würde. Werden die Stücke 
dagegen zu lang, benötigen sie zuviel des freien Speicherplatzes, 
der ja durch einen zweiten Bildschirminhalt schon um 1/4 redu- 
ziert wurde. 


Der BASIC-Lader zum SCREENSWAP 464/664: 


5 START=&A000:SUMME=O 

10 FOR IX=START TO START+&40 

20 READ WERTS:WERT=VALC"&U+WERTS) 

30 __POKE 1%,WERT :SUMME=SUMME+WERT :NEXT 

40 IF SUMME<>5098 THEN PRINT "Fehler in DATAs" 
50 DATA 21,00,C0,22,00,81,21,00,40,22,02,81,01 
60 DATA 40,00,C5,01,00,01,11,00,80,2A,00,81,ED 
70 DATA B0,01,00,01,E0,58,00,81,24,02,81,ED,BO 
80 DATA 01,00,01,ED,58,02,81,21,00,80,E0,B0,21 
90 DATA 01,81,34,23,23,34,C1,00,C5,20,D1,C1,C9 


Das Assembler-Listing zum SCREENSWAP 464/664: 


A000 21 00 CO LD HL,&C000 
A003 22 00 81 LD (&8100),HL 
A006 21 00 40 LD HL,&4000 
A009 22 02 81 LD (&8102),HL 


AOOC 01 40 00 LD BC,&0040 
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AOOF c5 PUSH BC 

A010 01 00 01 wMWeiter LD BC,&0100 
A013 11 00 80 LD DE ,&8000 
A016 2A 00 81 LD HL, (&8100) 
A019 ED BO LDIR 

A01B 01 00 01 LD BC,&0100 
AUIE ED 5B 00 81 LD DE, (&8100) 
A022 2A 02 81 LD HL, (&8102) 
A025 ED BO LDIR 

A027 01 00 01 LD BC,&0100 
AO2ZA ED 5B 02 81 LD DE, (&8102) 
AOZE 21 00 80 LD HL,&8000 
A031 ED BO LDIR 

A033 21 01 81 LD HL,&8101 
A036 34 INC (HL) 

A037 23 INC HL 

A038 23 INC HL 

A039 34 INC (HL) 

AO3A c1 POP BC 

AO3B 0D DEC c 

AOSC c5 PUSH BC 

A0O3D 20 DI JR NZ ‚weiter 
AO3F c1 POP BC 

A040 C9 RET 


Das Programm selbst ist relokativ ausgelegt. Trotzdem kann es 
nicht an jeden Platz gelegt werden. Zum einen darf es nicht im 
Block 1 des Speichers liegen, da dieser ja als Bildschirm-Neben- 
speicher durch das Programm beeinflußt wird. Zum anderen 
liegt der Zwischenspeicher für das SWAPen und vier Reserve- 
Speicherplätze unmittelbar hinter dem Block 1 in dem Bereich 
von &8000 - &8103. Damit fallen die Speicherplätze &4000 - 
&8103 als Bereich für das Programm aus. 


Wenn Sie in Zeile 5 des BASIC-Laders die STARTadresse auf 
&8104 legen, haben Sie einen übersichtlichen Bereich (&4000 - 
&8144) geschaffen, in dem dann alle für das SWAPen benötigten 
Speicherplätze liegen. 
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15. Eine einfache Schnittstelle aus BASIC zu 
den Z80-Maschinenregistern 


Es ist bekannt, daß man sich beim Programmieren manchmal 
mit den Maschinenroutinen des CPC besser behelfen kann als 
mit den entsprechenden BASIC-Befehlen. 

Ein gutes Beispiel ist die Routine, die mit CALL &BB06 auf- 
gerufen wird. Diese Routine wartet auf den nächsten Tasten- 
druck, wobei jede beliebige Taste betätigt werden kann. Dann 
kehrt das Programm wieder zu dem BASIC-Programm zurück. 
Die Routine &BB06 braucht keine Einsprung-Parameter. 


Mit dem Befehl SPEED WRITE x kann man über die Parameter 
0 und 1 die Schreibgeschwindigkeit für die Cassette wählen, 
wobei die höchste Geschwindigkeit mit 1 eingestellt wird. Damit 
ist die Ausgabe auf 2000 Baud gesetzt. Dieses ist natürlich nicht 
das Maximum, was der CPC zu leisten vermag. 

Höhere Übertragungsraten lassen sich mittels der Routine, die 
über &BC68 angewählt wird, erreichen. Dazu müssen allerdings 
3 Register des Z80 gezielt gesetzt werden. Mit dem folgenden 
Programm lassen sich alle Register leicht laden. 


10 MODE 2:SUMME=0:GOSUB 100 

20 FOR I=1 TO 10 

30 __READ REG$,PLATZ$:PRINT REG$;: INPUT" ";WERT$ 
40 IF WERTS="" THEN WERTS="00 

50 WERT=VALC"&N+WERTS):PLATZ=VALCH&N+PLATZS) 

60 _POKE &A000+PLATZ,WERT 

70 NEXT 

80 CALL &AO00:END 

100 FOR I1=&A000 TO &AO12:READ WS:W=VAL("EN+WS) 

110 POKE I,W:SUMME=SUMME+W:NEXT 

120 IF SUMME<>960 THEN PRINT "Fehler in DATAS":END 
130 RETURN 

140 DATA 21,0,0,E5,F1,1,0,0,11,0,0,21,0,0,C0,0,0,C9,0 
150 DATA A,2,F,1,8,7,C,6,D,A,E,9,H,D,L,C,HB,10,LB,F 


Die Schleife in den Zeilen 100 und 110 plus den Daten der Zeile 
140 ergeben die eigentliche Schnittstelle in Form einer kleinen 
Assembler-Routine ab der Speicherstelle &A000. Das Programm 
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fragt nach den Werten, die in die Register A,F,B,C, D,E,H, 
und L geladen werden sollen. Die folgenden Eingaben HB und 
LB beziehen sich auf das High-Byte und Low-Byte der gewähl- 
ten Routine. Die Eingaben, die nicht interessieren, können mit 
ENTER übergangen werden. 


Mit diesem einfachen Werkzeug haben wir aus BASIC heraus 
‚eine gute Möglichkeit, die Firmware des CPC kennenzulernen 
und zu nutzen. 

Noch einmal zurück zur Schreibgeschwindigkeit des Cassetten- 
teils. Die Übergabeparameter sind die Länge für ein halbes 
Null-Bit in HL und die Vorprüflänge im Register A. 


1000 Baud: HL=333 A=25 
2000 Baud: HL=167 A=50 


Diese Werte ergeben eine hohe Sicherheit beim Datentransfer. 
Wie stark man die Ladegeschwindigkeit erhöhen kann, hängt 
nicht zuletzt vom Bandmaterial ab. 
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16. Die Unterbringung von Maschinen- 
programmen im Speicher 


Die übliche Methode zum Speichern von Maschinenprogrammen 
kennen Sie sicherlich. Die aus Datenzeilen gelesenen Werte wer- 
den oberhalb des BASIC RAMs mit POKE in den Speicher ge- 
schrieben. Zuvor wurde der benutzte Speicherbereich mit 
MEMORY reserviert. Diese Methode hat einen Nachteil: 


Da die eigenen Symboldefinitionen auch oberhalb des BASIC- 
Endes gespeichert werden, kommt es hier zu Überlappungen. In 
dem Wissen um diese Probleme haben die Systemprogrammierer 
eine Sperre eingebaut. Wurde mit MEMORY die Speicherober- 
grenze unterhalb des Endes der Symboldefinition gelegt, so gibt 
jeder darauffolgende "SYMBOL AFTER"-Befehl die Fehlermel- 
dung "inproper argument". Damit wird verhindert, daß bei der 
Vergrößerung des Symbolbereiches eventuell vorhandene Ma- 
schinenprogramme überschrieben werden. Einerseits ist dies für 
den Schutz der Maschinenprogramme sinnvoll, andererseits er- 
zeugt jedes "SYMBOL AFTER" sofort eine Fehlermeldung. Das 
bedeutet, daß z.B. bei jedem Programmablauf bis auf den ersten 
die Programmausführung bei "SYMBOL AFTER" abbricht. Eine 
Möglichkeit wäre von vornherein "SYMBOL AFTER 0" im Di- 
rektmodus einzugeben. 


Für "anständige" Programme ist das aber keine befriedigende 
Lösung. 


Eine zweite Möglichkeit bestünde darin, den Befehl in die erste 
Zeile zu setzen und nach dem ersten Durchlauf zu löschen(!). 
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Für den CPC 464 gilt folgendes: 


10 SYMBOL AFTER 100 

20 a=PEEK(&AE81)+256*PEEK(&AE82)+1 

30 POKE a+4,&C5 

40 FOR i=a+5 TO atPEEK(a)+256*PEEK(a+1)-2:POKE i,32:NEXT 
50 MEMORY &A000 


Für den CPC 664/6128 gilt: 


10 SYMBOL AFTER 100 

20 a=PEEK(&AE64)+256*PEEK(BAE65)+1 

30 POKE a+4,&C5 

40’FOR i=a+5 TO atPEEK(a)+256*PEEK(a+1)-2:POKE i,32:NEXT 
50 MEMORY &A000 


Eine andere Methode, die variable Symboldefinitionen auch 
mitten in Programmen zuläßt, verändert vorübergehend den 
internen Himem-Zeiger, so daß "SYMBOL AFTER" wieder 
erlaubt ist. Wenn Sie diese Methode benutzen, müssen Sie jedoch 
auf jeden Fall darauf achten, daß Ihre Maschinenprogramme 
nicht doch durch Symboldefinitionen überschrieben werden. 


Für den CPC 664 und CPC 6128 gilt: 


10 MEMORY &9FFF 

20 REM .... 

30 oldhimem=PEEK(&AESE )+256*PEEK(&AESF) 

40 POKE &AESE,PEEK(&AE60):POKE &AESF,PEEK(&AE61) 
50 POKE &8735,0 

60 SYMBOL AFTER 200 

70 MEMORY oldhimem 

80 REM .... 
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Für den 464 gilt: 


10 MEMORY &9FFF 

20 REM .... 

30 oldhimem=PEEK(&AE7B)+256*PEEK(&AE7C) 

40 POKE &AE7B,PEEK(&AE7D):POKE &AE7C,PEEK(&AETE) 
50 POKE &8295,0 

60 SYMBOL AFTER 200 

70 MEMORY oldhimem 

80 REM .... 


Da alle diese Methoden jedoch nur Behelfe sind, lernen Sie im 
folgenden noch einige andere kennen, die von Fall zu Fall un- 
terschiedlich vorteilhaft eingesetzt werden können. 

Zunächst zeigen wir Ihnen zwei Möglichkeiten, die prinzipiell 
dasselbe Verfahren, aber einen anderen Speicherbereich benut- 
zen. 


Anstatt Maschinenprogramme oberhalb des BASIC-Bereiches zu 
speichern, ist ein Abspeichern natürlich auch unterhalb des 
BASIC-Programmspeichers möglich. 


Der "Start des BASIC-Programm minus eins Zeiger" steht an 
Adresse &AE81/2 (bei 664/6128: &AE64/5). Normalerweise 
zeigt er auf die Adresse &I6F, d.h., BASIC-Programme 
beginnen an Adresse &170. 


Stellen wir diesen Zeiger auf einen größeren Wert, den wir 
"Lowmem" nennen, so steht der Bereich von &170 bis Lowmem 
für Maschinenprogramme zur Verfügung. Also: 


POKE &AE64 , INT(Lowmem/256) 
POKE &AE65 ‚Lowmem- INT(Lowmem/256)*256 
NEW 


(464: für &AE69/5 steht 6GAE81/2) 
NEW muß direkt anschließend eingegeben werden, da sonst di- 


verse Zeiger, z.B. für die Variablentabelle, nicht richtig gesetzt 
werden. 
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Die Verlegung des Bereiches ist bei der Programmierung im 
BASIC nicht bemerkbar. Auch "SYMBOL AFTER" funktioniert 
einwandfrei. Damit eignet sich der Bereich unterhalb des 
BASIC-Programms hervorragend zum Speichern von Maschinen- 
programmen. 


Mit gewissen Einschränkungen ist es möglich, Maschinenpro- 
gramme im System RAM-zu speichern. Ein so zu benutzender 
RAM-Bereich ist der Keybelegungsspeicher. Seine Startadresse 
steht an Adresse &B4E1/2 (664/6128: &B62B/C). Normalerweise 
beginnt die Tabelle an Adresse &B446 (664/6128: &B590); sie ist 
152 Bytes lang. Der Nachteil liegt darin, daß die KEY-Belegung 
der Tasten nicht mehr verwendbar ist. Damit das nicht trotzdem 
geschieht, sollten die erweiterten Tasten mit KEY DEF auf ihre 
normale Funktion zurückgesetzt werden. 


Auch eine Speicherung der Tabelle der vom Anwender selbstde- 
finierten Zeichen ist möglich. Allerdings können die über- 
schriebenen Zeichendefinitionen nicht mehr benutzt werden. Der 
Code des ersten in der Symboltabelle stehenden Zeichens steht 
an Adresse &B294 (664/6128: &B734). Die Größe ergibt sich 
aus: 


PRINT (256-PEEK(&B294))*8 für 464 
PRINT (256-PEEK(&B734))*8 für 664/6128 


Natürlich müssen, wenn definiert, die Zeichencodes 32 - 127 
unverändert bleiben. 


Die Startadresse der Tabelle steht an Adresse &B296/7 
(664/6128: &B736/7), die Endadrese an Adresse &B096/7 
(664/6128: &B075/6). Schließlich ist es auch möglich, ein Ma- 
schinenprogramm im Video-RAM (Adresse &C000 bis &FFFF) 
abzuspeichern. Dazu folgende Überlegung: 


Der Video-RAM ist 16K (16K=16*1024=16384) groß. In 
MODE 2 sind darin aber "nur" 25*80*8 Punkte gespeichert. Die 
Differenz, nämlich 384=8*48 Byte werden nicht genutzt. 
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Beim Einschalten bzw. nach dem MODE-Befehl liegen je 48 
Bytes ungenutzt im Bereich von &C7D0-&C7FF, &CFDO- 
&CFFF, &D7D0-&D7FF usw. vor. Das Problem bei dieser 
Methode liegt darin, daß der Bildschirm nie (!) scrollen darf. 


Die ausgegebenen freien Bereiche würden sich dadurch ver- 
schieben und die Programme überschrieben werden. Trotzdem 
mag dies für das Abspeichern einiger Programme ein guter Platz 
sein, da er ansonsten keinerlei Einschränkungen auferlegt. 


Im folgenden sind noch zwei weitere Methoden aufgeführt, die 
jedoch nur für bestimmte Maschinenprogramme funktionieren. 
Alle Maschinenprogramme, die abgespeichert werden sollen, 
müssen verschiebbar (relocativ) sein, d.h. sie dürfen keine abso- 
lut angegebenen Adressen, die den Adreßbereich des Programms 
selbst betreffen, enthalten. Oft kann man Maschinenprogramme 
glücklicherweise auch ohne absolute Adressen, beispielsweise nur 
mit relativen Sprüngen innerhalb des Programms schreiben. Die 
Programme müssen diese Eigenschaft haben, da wir sie sozu- 
sagen "in die Hände" des Systems geben, das sie verwaltet. Dabei 
ist nur garantiert, daß sich kein Byte des Programms ändert, die 
Startadresse ist aber variabel und wird je nach Bedarf verändert 


Wie ist das möglich? 


Ganz einfach: Das BASIC erledigt ständig diese Aufgabe der 
Verwaltung von Ketten von Bytes, nämlich von Strings. Ein 
String besteht aus aufeinanderfolgenden Codes. Seine Länge 
kann bis zu 255 Zeichen betragen. Folglich können wir auch ein 
Maschinenprogramm (= eine Folge von Codes) als String spei- 
chern. 


Mit einer Schleife werden wie üblich die Codes aus DATA- 
Zeilen gelesen und dann mit CHR$ der Reihe nach zu einem 
String addiert, z.B.: 

MAPRO$=MAPROS$S+CHR$(Byte) 


Damit ist das Maschinenprogramm gespeichert. Der Aufruf 
erfolgt mit Hilfe der @-Funktion, der auf den Stringdescriptor 
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zeigt (siehe Programmierhilfen). Für unser Programm, das in 
MAPROS enthalten ist, kann man schreiben: 


CALL PEEK(@MAPRO$+1)+256*PEEK(@MAPRO$+2) 


Die zweite Möglichkeit, die auf demselben Prinzip aufbaut, 
erlaubt sogar die Speicherung beliebig langer Maschinenpro- 
gramme. 


Diesmal benutzen wir zum Speichern einfach eine Feldvariable 
des Typs Integer. Eine Integerzahl besteht aus High und Low 
Byte. In einem Feld werden die zu den Indices gehörenden 
Werte einfach hintereinander abgespeichert. Aus diesem Grund 
können wir Felder von INT-Zahlen zur Speicherung von Ma- 
schinenprogrammen benutzen. Genaueres über Feldvariablen und 
ihre interne Verarbeitung finden Sie im Kapitel 22. Das 
folgende Programm macht das Prinzip deutlich. Wichtig ist: 


1) Das Feld muß vom Typ Integer sein (%) 
2) Hat das Programm eine ungerade Länge, so muß zu- 
sätzlich &00 an die DATA-Zeile gehängt werden. 


iD lang=26: ' Anzahl Bytes im Programm 
28 DIM meldung% (INT ((lang-1)/2)) 

38 FOR i=B TO INT((lang-1)/2) 

48 READ 1#,h# 

SB meldung% (i)=VALC"&"+h#+1$) 

68 NEXT i 

78 END 

BB DATA 3e,Bi,cd,Be,bc,cd,15,b9 

92 DATA 7c,21,57,86,fe,81,28,806 

188 DATA 2e,5c,538,82,2e,77,cd,Bb 

118 DATA 080,c? 

i28 REM Aufruf mit CALL @meldung“% (8) 
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Nach Eingabe von RUN kann das Programm jederzeit mit 
CALL @MELDUNG%(0) aufgerufen werden. Der beim Aufruf 
angegebene Index muß 0 sein. 


Haben Sie das Programm ausprobiert? Vielleicht haben auch Sie 
erst einmal einen Schrecken bekommen und gedacht, der Rech- 
ner wäre abgestürzt bzw. ein Reset ausgeführt worden. 

Dem ist nicht so. Es wurde lediglich noch einmal die Einschalt- 
meldung angegeben. Das kleine Programm "Meldung" ist insofern 
interessant, als daß es automatisch die richtige Rechnerversion 
erkennt. Das wird durch die Systemroutine "KL Version 
Number" bewerkstelligt. 


Hier das Assemblerlisting des Programms: 


ABDUOR 10 ; Meldung 

ABaB 3SEBI 28 LD a,i 

ABB? CDBEBC 38 CALL %bcQde ; SCR Mode a 
ABBS CD15BY 40 CALL &b915 ; KL Versions Nummer 
ABBS 7C 58 LD a,h 

; BASIC Version 8,1 oder 2 

ABU? 215786 68 LD h1,%8657 ; fuer 664 
ABBC FEBI 78 cr 1 

ABGE 28FE 88 JR z,ok 

ABIB 2ESC 98 LD 1,%5c ; fuer 464 
ABıZ 38FE 198 JR c,ok 

AB14 2E77 118 LD 1,%77 ; fuer 6128 


*+#* Zeile 808 : OK=&AB16 

*#*#* Zeile 1808 : OK=&AB1& 

AB1& CDBROO 128 DK CALL &b 
ABI? C9 1580 RET 


Programm :meldung 

Start : &ABBD Ende : %AB19 
Laenge : BBiA 

@ Fehler 

Variablentabelle : 

OK AB1& 
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17. Abspeichern von Assemblerroutinen und 
Speicherbereichen 


Mit dem hervorragenden BASIC-Interpreter des CPC sind Sie in 
der Lage, einzelne Bereiche des RAM gezielt abzuspeichern. Die 
Syntax dieser Form des SAVE-Befehles sieht folgendermaßen 
aus: 


SAVE "programmname",B,startadresse,länge 


Auf diese Art und Weise können u.a. Maschinenroutinen auf 
Diskette oder Cassette gespeichert werden. Beispiel: 


Das abzuspeichernde Programm liegt in dem Bereich von &A000 
bis &A013. 


SAVE "DEMONAME",B,&A000,&14 


Beachten Sie bitte genau, daß die Längenangabe dabei nicht zu 
kurz gerät. Im Beispiel ist die Länge der Routine &14 Byte, 
obwohl das letzte Byte die Nummer &xx13 hat. Fehlt nämlich 
das letzte Byte, es ist häufig das RET, stürzt das Programm nach 
dem Aufruf ab. 


Außer der Möglichkeit, Assemblerroutinen abzuspeichern, 
können auch ganze Bildinhalte geSAVEt werden. 


SAVE "SCREEN",B,&C000,&4000 


In diesem Beispiel wird der reguläre Bildschirmspeicherbereich 
ab der Adresse &C000 mit der Länge &4000 als Binärfile unter 
dem Namen SCREEN abgespeichert. 

Jetzt bieten sich gute Möglichkeiten, die bereits erwähnten 
Routinen für das Screencopy, Screenswap oder das Umschalten 
der Bildschirmbasis anzuwenden. Da der Ladevorgang eines 
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kompletten Bildes einige Sekunden dauert, bietet es sich an, das 
Bild zuerst in den Block 1 des RAM zu laden, und dann mit 
einem der Befehle schnell in den Bildschirmbereich zu bringen. 


LOAD "SCREEN",&4000 : CALL screencopy 
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18. Nützliche Betriebssystem-Routinen 


Adresse &0000: RST 0 - RESET 


Der Aufruf dieser Routine mit CALL 0 wirkt wie 
ein Aus-/Anschalten des Rechners. 


Adresse &0008: RST &08 - Low Jump 


Diese Routine springt an eine Adresse im Betriebs- 
system-ROM oder im darüberliegenden RAM. Bit 14 
und 15 bestimmen die ROM/RAM-Selektion. Ein 
gesetztes Bit bedeutet RAM und ein nichtgesetztes 
Bit ROM. Bit 14 bestimmt über den unteren Adress- 
bereich (&0-&3FFF) und Bit 15 über den oberen 
(&C000 bis &FFFF). 


Adresse &000C: JP (HL) mit ROM/RAM-Selektion 
Indirekt adressierter Sprung zur Adresse im HL- 
Register. Bit 14 und 15 von HL üben dieselbe Funk- 
tion wie bei RST &08 aus. 

Adresse &0010: RST &10 : Side Call 
Dient zum Aufruf einer Routine in einem Expan- 
sions-ROM. 

Adresse &0018: RST &18 - Far Call 
Dient zum Aufruf einer Routine irgendwo im ROM 
oder RAM. Hinter dem Befehl RST &18 steht die 


Adrese eines Vektoren, der Zieladresse und 
ROM/RAM Status enthalten muß. 
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Adresse &0020: RST &20 - RAM Lam LD A,(HL) 


Der Akku wird mit dem Wert der Adresse, auf die 
HL, zeigt geladen. Durch diese Routine wird dabei 
immer RAM selektiert. 


Adresse &0028: RST &28 - Firm Jump 


Dient zum Aufruf einer Routine im Betriebssystem 
(Firmware). Dabei wird die Adresse direkt hinter 
dem Befehl angegeben. 


Adresse &0030: RST &30 - User Restart 


Diese Routine steht für eigene Programme zur Ver- 
fügung. 

Ein Beispiel für die Anwendung des RST &30 fin- 
den Sie in Kapitel 23. 


Adresse &0038: RST &38 - Interrupt Einsprung 
Über diese Adresse werden die Interruptroutinen 
aufgerufen. 

Adresse &BB06: KM (Key Manager) - Wait Char 
ASCII-Code der gedrückten Taste wird im Akku 
zurückgegeben. 

Adresse &BB15: KM EXP Buffer 


Diese Routine legt den RAM Bereich fest, in dem 
die Funktionstastenbelegungen gespeichert werden 
sollen. Da dieser Bereich eigentlich ein bißchen kurz 
geraten ist, kann er mit dieser Routine vergrößert 
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werden. Dazu wird im DE Register die Startadresse 
und im HL Register die Länge des Puffers überge- 
ben. Wurde eine ausreichende Länge definiert, so 
kann jeder Funktionstaste ein String von bis zu 32 
Zeichen zugeordnet werden. Alte Eintragungen 
werden durch den Ablauf dieser Routine gelöscht. 


Adresse &BB24: KM Get Joystick 
H-Register enthält Zustand des Joystick 1, L- 
Register entsprechend vom 2ten. 

Adresse &BB39: KM Set Repeat. 
Die Repeat-Funktion für die Taste mit der im Akku 
enthaltenen Nummer wird eingeschaltet, wenn B<>0 
ist, bei B=0 wird sie ausgeschaltet. 

Adresse &BB3C: KM Get Repeat 
Das Z-Flag wird gesetzt, wenn die Taste mit der im 
Akku enthaltenen Nummer nicht auf Repeat gestellt 
ist, ansonsten zurückgesetzt. 

Adresse &BB3F: KM Set Delay 
Übergabe Tastennummer: A, Verzögerungszeit im H- 
Register, Wiederholungsgeschwindigkeit im L- 
Register. 

Adresse &BB42: KM Set Delay 
Übergabe: Tastennummer in A 


Rückgabe: H:Verzögerungszeit, L: Wiederholungs- 
geschwindigkeit. 
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Adresse &BBS5A: TXT Output 
Gibt dem Wert des Akkus entsprechend das Zeichen 
auf den Bildschirm aus. 

Adresse &BB60: TXT Read Char 
Liest ein Zeichen vom Bildschirm ein. In HL wird 
die Position des Zeichens übergeben (H-Zeile / L- 
Spalte). Wird ein gültiges Zeichen erkannt, wird 
Carry gesetzt und der ASCII-Code des Zeichens in 
den Akku geladen. 

Adresse &BB6C: TXT Clear Window 


Löscht das aktuelle Bildschirmfenster. 


Adresse &BB75: TXT Set Cursor 


H/L entspricht Zeile/Spalte. 


Adresse &BB78: TXT Get Cursor 
Adresse &BB81: TXT Cursor On 
Adresse &BB84: TXT Cursor Off 
Adresse &BB90: TXT SET PEN 


Die Pen-Farbe wird der im Akku enthaltenen INK- 
Nummer zugeordnet. 
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Adresse &BB93: TXT GET PEN 


Liest die aktuelle PEN-INK-Nummer in den Akku. 


Adresse &BB96: TXT SET PAPER (s. PEN) 
Adresse &BB99: TXT GET PAPER (s. PEN) 
Adresse &BB9IC: TXT INVERSE 

Adresse &BBAS5: TXT GET MATRIX 


Die Adresse der Zeichendefinition des Codes A wird 
im HL-Register zurückgegeben. Carry ist gesetzt, 
wenn es sich um ein vom Benutzer definiertes Zei- 
chen handelt. 


Adresse &BBA8: TXT SET MATRIX 
Die Matrix des vom Benutzer definierbaren Zeichens 
mit dem Code A wird mit der Matrix ab Adresse HL 
geladen. 

Adresse &BBC0: GRA Move Absolute 


Das DE-Register enthält die X-Koordinate, das HL-Register 
enthält die Y-Koordinate. 
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Adresse &BBC3: GRA MOVE Relative 


Das DE-Register enthält relative X-Koordinate, das 
HL-Register die relative Y-K.oordinate. 


Adresse &BBC6; GRA Ask Cursor 


Registerbelegung wie bei Move Absolute. 


Adresse &BBC9: GRA SET PEN As=ink 
Adresse &BBEIl: GRA GET PEN Asink 
Adresse &BBE4: GRA SET PAPER Asink 
Adresse &BBE7: GRA GET PAPER Az=ink 
Adresse &BBEA: GRA Plot Absolut 
Adresse &BBED: GRA Plot relative 


DE: relative X-K.oordinate 

HL: relative Y-Koordinate 
Adresse &BBF0: GRA TEXT Absolut 

DE: X-Koordinate 


Hl: Y-Koordinate 
Rückgabe: A enthält INK des Punktes 


Adresse &BBF3: GRA Text relativ 
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Adresse &BBF6: GRA DRAW LINE 
Die Linie wird von dem aktuellen Grafikcursor zu 
den Zielkoordinaten gezogen. 


Adresse &BBF9: GRA DRAW LINE relative 


Adresse &BBFC: GRA WRITE Char 
Auf der Grafikcursorposition wird das Zeichen A 
ausgegeben. 
Adresse &BCOB: SET Location 
Die aktuelle Startadresse des linken oberen Bild- 
schirmzeichens wird ermittelt. A enthält das High- 
Byte der Basisadresse (normalerweise &C0) und HL 
den Offset von der Basisadresse zur Startadresse. 
Adresse &BCOE: SCR Mode A 
Der dem Akkuinhalt entsprechende Bildschirmmodus 
wird eingeschaltet. 


Adresse &BC11: SCR GET MODE 


Die aktuelle MODE-Nummer wird in den Akku ge- 
laden. Außerdem sind die Flags beeinflußt: 


MODE 0: C 
MODE 1: Z 
MODE 2: NC 
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Adresse &BC14: SCR Clear screen mit ink 0 


Adresse &BC1A: SCR CHAR POS 


Übergabe: H-Zeile / L-Spalte der Zeilenposition 
Rückgabe: HL: Adresse der ersten Bytes 
B: Breite des Zeichens in Byte (1, 2 oder 3) 


Adresse &BC1D: SCR DOT POS 


Übergabe: DE: X-Koordinate / HL: Y-Koordinate 
Rückgabe: HL: Bildschirmadresse 

C: Bit-Maske, die nur den betroffenen Punkt be- 
rücksichtigt. 

B: Anzahl der Punkte -1 pro Byte (1, 2 oder 3) 


Adresse &BC20: SCR NEXT BYTE 
Bildschirmadresse HL um ein Byte nach rechts 
erhöhen. 

Adresse &BC23: SCR PREV BYTE 
Die Bildschirmadrese HL um ein Byte nach links 
verrücken. 

Adresse &BC26: SCR NEXT LINE 


Bildschirmadresse HL auf die nächste Zeile setzen. 


Adresse &BC29: SCR PREV LINE 


Bildschirmadresse HL auf vorhergehende Zeile set- 
zen. 
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Adresse &BC32: SET INK Color 


A: INK-Nummer; B und C Farben. 


Adresse &BC35: SCR GET INKcolor (wie oben) 
Adresse &BC38: SCR SET Bordercolor (B,C) 
Adresse &BC3B: SCR GET Bordercolor (B,C) 
Adresse &BC3E: SCR SET Flash Time 


H: Zeit für erste Farbe 
L: Zeit für zweite Farbe 


Adresse &BC41: SCR GET Flash Time 

Adresse &BC5F: SCR waagerechte Linie 
A: INK, DE: X-Anfang, BC: X-Ende, HL: Y-Koor- 
dinate. 

Adresse &BC62: CR senkrechte Linie 


A: INK, DE: X-Koordinate, BC: Y-Ende, HL: Y- 
Anfang. 


Adresse &BC9IB: CAS (bzw. Disk) Catalog 
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Adresse &BCDI: KL (Kernel) Log Ext 


Bindet RSX Erweiterungen ein. 


Adresse &BDOD: KL Time please 


Gibt den Wert des Timers als 4-Byte-Wert in DE 
und HL zurück 


Adresse &BD10: KL Time Set 


Adresse &BD2B: MC Print Char 


Gibt den Wert des Akkus zum Drucker aus. 


Adresse &BD2E: MC Printer Busy 
Prüft, ob der Drucker empfangsbereit ist. Wenn 
nicht, wird das Carry-Flag gesetzt. 

Adresse &BD37: Jump Restore : Notbremse 


Setzt alle eventuell verbogenen Sprungvektoren auf 
ihre Ausgangswerte zurück. 


Adresse &BDD3: Write 


Der Akkuinhalt wird als ASCII-Zeichen auf dem 
Bildschirm ausgegeben. 
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19. Nützliche Routinen des BASIC-Interpreters 


Die Reihenfolge der Adressen bedeutet: 


Adresse 1 für 464, Adresse 2 für 664 und Adresse 3 für 6128 


Adresse &C356: &C3A0: &C3A3: Print 


Gibt das dem Akkuinhalt entsprechende Zeichen auf 
den aktuellen Kanal aus. Die Kanalnummer ist dabei 
in Speicherstelle &AC21, &AC06, &AC06 enthalten. 
Die Ausgabe unser Programme XREF/DUMP kann 
zB. mit POKE &AC06,8|XREF (464: POKE 
&AC21,8:|XREF) gedruckt werden. 


Adresse &C34E: &C398: &C39B: Line Feed 


Gibt Line-Feed auf aktuellen Kanal aus. 


Adresse &C43C: &C472: &C475: BREAK Test 


Prüft, ob ESC gedrückt wurde. Wenn ja, springt die 
Routine in den Wartemodus (wie vom BASIC be- 
kannt). 


Adresse &CA94: &CB55: &CB58: Error- Ausgabe 


Bei Übergabe der Fehlernummer im Akku (bei 664 
und 6128 im E-Register) wird die entsprechende 
Fehlermeldung ausgegeben und das Programm unter- 
brochen. 
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Adresse &D5SDB: &D619: &D61C: Buchstaben-Variablentabel- 
lenpointer holen 


Im Akku wird der Anfangsbuchstabe der zu suchen- 
den Variablen übergeben. Als Rückgabe enthält BC 
die Startadresse der Variablentabelle und HL die 
Adresse, an der der Zeiger auf die erste Variable mit 
dem jeweiligen Buchstaben gespeichert ist. 


Adresse &D6B3: &D6EC: &D6EF: Variablentabellenpointer 
holen 


Zur Übergabe muß HL auf den Anfang einer Vari- 
ablen im Programm zeigen, genau gesagt auf das Ty- 
penkennzeichen, das jeder Variablen vorausgeht. 
Existiert die Variable bereits in der Tabelle, wird 
ihre Startadresse zurückgegeben. Ansonsten wird die 
Variable in die Liste eingetragen und die neue Start- 
adresse zurückgegeben. 


Adresse &DD37: &DE25: &DE2A: CHR NEXT 


Prüft, ob das nächste Byte (Adresse HL+1) des 
BASIC-Programms gleich dem Byte ist, das auf den 
Aufruf der Routine folgt. Bei Ungleichheit wird ein 
Syntax Error ausgegeben. 


Adresse &DD3F: &DE2C: &DE31: CHRGET 


Diese Routine dient zum Holen des nächsten Bytes. 
Dazu wird zunächst HL erhöht. Das an Adresse HL 
stehende Byte wird gelesen. Ist es ein Leerzeichen 
(Code 32), wird das nächste Byte gelesen usw. 

Das erste "nicht Leerzeichen" wird im Akku zurück- 
gegeben. Handelt es sich um ein Null-Byte, so wird 
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das Z-Flag gesetzt. Die Routine wird zum schritt- 
weisen Lesen von BASIC-Programmen benutzt. 
Dabei bedeutet das Null-Byte das Ende einer Zeile. 


Adresse &DDS51: &DE3D: &DE42: CHRGOT 


Liest noch einmal das zuletzt gelesene Byte und 
prüft, ob das Ende des Befehls erreicht ist. Wenn ja, 
ist C gesetzt. 


Adresse &DD5S5: &DE41: &DE46: CHKKOMMA 


Prüft, ob das aktuelle Byte ein Komma darstellt. 
Wenn ja, wird das folgende Byte gelesen und Carry 
gesetzt. Sonst ist das Carry-Flag zurückgesetzt. 


Adresse &E8SFF: &E9B9: &EIBE: BASIC DO Routine BC 


Diese Routine durchläuft das aktuelle BASIC- 
Programm und springt nach dem Lesen des Anfangs 
jeder Zeile zu einer beliebigen Routine an Adresse 
BC. Dort kann die Zeile untersucht werden. Nach 
Behandlung der Zeile wird mit RET zurückgesprun- 
gen und automatisch die nächste Zeile "geliefert". 


Adresse &E943: &EIFD: &EA02: SKIP COMMAND 


U.U. im Zusammenhang mit der zuletztgenannten 
Routine überspringt diese Routine eine Befehlsein- 
heit in einer Zeile. 
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Adresse &EE79: &EF44: &EF49: PRINT HL dezimal 
Zum Ausgeben der Zeilennummern eines BASIC- 
Programms kann diese Zeile benutzt werden. Über- 
geben werden muß nur die Zeilennummer im HL- 
Register als 2-Byte-Wert. 

Adresse &F236: &F2DS: &F2DA: PRINT FAC 
Diese Routine gibt den zur Zeit im FAC enthaltenen 
Wert in dezimaler Form aus. 

Adresse &FF4B: &FF6C: &FF6C: VAR FAC 
Kopiert den Wert einer Variablen in den FAC. Dazu 
muß HL die Adresse des Wertes enthalten. 

Adresse &FF71: &FF92: &FF92: TEST Buchstabe 
Der Akkuinhalt wird als ASCII interpretiert und 
wenn möglich, in Großbuchstaben verwandelt. 


Handelte es sich dabei nicht um den ASCII-Code 
eines Buchstabens, ist das Carry-Flag zurückgesetzt. 


Adresse &CFEE: &D058: &D055: Operand Missing 


Adresse &C205: &CB30: &C210: Improper Argument 
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20. Kompatibilität zwischen den drei CPCs 


In diesem Kapitel wollen wir kurz festhalten, wo die wichtigen 
Unterschiede bzw. "Gleichheiten" zwischen den drei Schneider- 
Rechnern CPC 464, CPC 664 und CPC 6128 bzgl. der 
Maschinenspracheprogrammierung liegen. 


Grundsätzlich kann man sagen, daß die ROMs der drei Compu- 
ter sehr ähnlich sind. Leider bedeutet sehr ähnlich nur, daß fast 
alle Routinen gleichermaßen bei allen Rechnern existieren. Der 
Haken an der Sache ist, daß auch bei fast allen Routinen die 
direkten Einsprungadressen unterschiedlich sind. Davon ausge- 
nommen sind lediglich und glücklicherweise die meisten Sprung- 
vektoren im zentralen RAM. Im Speziellen sind das die Sprung- 
vektoren zum: 


- HIGH KERNEL 
Adressen &B900 bis &B920 


- zum KEY-Manager 
Adressen &BBO00 bis &BB4D 


- zum TEXT-Pack 
Adressen &BB4E bis &BBB9 


- zum GRAfik-Pack 
Adressen &BBBA bis &BBFE 


- zum SCReen-Pack 
Adressen &BBFF bis &BC64 


- zum CAS- bzw. DISK-Manager 
Adressen &BC65 bis &BCA6 


- zum SOUND-Pack 
Adressen &BCA7 bis &BCC5 


- zum KERNEL (Low) 
Adressen &BCC8 bis &BDI12 
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- zum MaChine-Pack 
Adressen &BD13 bis &BD35 


- sowie der JUMP RESTORE-Vektor &BD37 


Leider konnten wir noch nicht jede einzelne der o.g. Routinen 
prüfen, jedoch haben wir bei unserer Arbeit bisher keine Rou- 
tine aus diesen Bereichen gefunden, die nicht bei allen drei 
Schneider-Computern die gleiche Funktion hat. 


Nach dem JUMP RESTORE-Vektor an Adresse &BD37 ist es 
jedoch vorbei mit der Kompatibilität. 


Beim 464 folgen nun der Aufruf des Line-Editors und dann die 
Sprünge auf die Arithmetik-Routinen. Beim 664 und 6128 
folgen hier jedoch einige neue Sprungvektoren wie z.B. zum 
Aufruf der Fill-Routine. 

Der LINE EDITOR-Vektor steht an Adresse &BD3A, dann erst 
folgen die Arithmetikroutinen. 

Die Jump-Vektoren (Vektoren, die nur bei eingeschaltetem Be- 
triebssystem aufgerufen werden dürfen) von Adrese &BDCD 
bis Adresse &BDF3 sind dagegen wieder bei allen Rechnerver- 
sionen gleich. 


Wollen Sie irgendwelche Routinen direkt anspringen, wie z.B. 
alle BASIC-Routinen, so sind in aller Regel die Einsprungadres- 
sen aller drei Rechner unterschiedlich, wobei zwischen dem CPC 
664 und dem CPC 6128 nur geringe Differenzen auftreten. 


Ein weiterer wichtiger Unterschied ist, daß beim CPC 664 und 
6128 die bei CPC 464 vorhandenen Indirections des BASIC-In- 
terpreters aus Platzgründen vollkommen weggefallen sind. Da- 
durch haben sich natürlich auch alle Systemdatenadressen 
("PEEKs und POKESs") gegenüber dem 464 verschoben. Diese 
Adressen sind jedoch beim CPC 664 und 6128 weitgehend 
gleich. 
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Bei der Programmierung sollten nach Möglichkeit ausschließlich 
die erwähnten Vektoren benutzt werden. Ist das nicht möglich, 
so wird man meist nicht umhinkommen, jeweils drei leicht 
unterschiedliche Versionen schreiben zu müssen. Einziger Licht- 
blick in diesem Adreßdschungel ist die Routine KL VERSION, 
die glücklicherweise, ansonsten wäre alles vergeblich, an einer 
genormten Adresse (&B915) steht. Diese Routine gibt die 
Nummer des aktuellen High-ROMs zurück. Dabei enthält H die 
ROM-Nummer (1 für BASIC-ROM) und L die Versionsnummer 
0=CPC 464, 1=CPC 664 und 2=CPC 6128. 


Mit Hilfe dieser Routine ist das Programm "Meldung" aus dem 
Kapitel über Maschinenprogrammeingabe für alle drei Rechner 
lauffähig gemacht worden. 
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21. Befehlserweiterung mit RSX 


Ein Erweitern des Schneider-BASIC Befehlsvorrates ist auf ver- 
schiedene Weisen möglich. Beim 464 kann man über die "Patch- 
bereiche" im RAM die vorhandenen ROM Routinen erweitern. 
Doch diese Möglichkeit ist relativ eingeschränkt, da nur 9 
solcher Patches möglich sind. Beim CPC 6128 sind sie außerdem 
aus Platzgründen ganz weggelassen worden. Es gibt jedoch bei 
allen CPCs die standardmäßig vorgesehene Methode, die die 
Erweiterung mit eigenen Befehlen ermöglicht. Sie alle kennen 
diese Methode. Sie wird für alle AMSDOS-Diskettenbefehle 
verwendet. 


Sicherlich haben Sie schon einmal mit |CPM den CP/M-Modus 
aufgerufen, auf jeden Fall wenn Sie ein Diskettenlaufwer besit- 
zen. Der CPM-Befehl beginnt mit einem Strich ("|"). Bei Eingabe 
von "CPM" (ohne Strich) erhalten Sie nur einen "Syntax Error". 
Betreiben Sie den Rechner ohne Floppy (nur bei 464 möglich), 
erhalten Sie nach |CPM ein "Unknown Command". 


Es handelt sich also um einen Befehl, der erst vorhanden ist, 
wenn eine Floppy angeschlossen ist. Damit ist er eine Erweite- 
rung. 


Der "|" teilt dem System mit, daß es sich im folgenden um einen 
Erweiterungsbefehl handelt. Die Methode, von vorneherein evtl. 
Erweiterungen einheitlich durch ein Sonderzeichen zu kenn- 
zeichnen, um sie dann zu erkennen und auszuführen, ist bei den 
Schneider Rechnern fest eingebaut. Diese Art der Einbindung 
von Befehlen bezeichnet man als RSX. RSX steht für "Resident 
System Extention", was soviel bedeutet wie "feste Systemerwei- 
terung". D.h., daß RSX ursprünglich für die Einbindung von 
neuen Befehlen, die in zusätzlichen ROMs (Expansions ROMs) 
vorhanden sind, gedacht war. Für den Floppybetrieb gibt es 
einen solchen Expansions ROM, in dem auch die Befehle |CPM, 
|ERA usw. enthalten sind. 
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Wir können die RSX-Methode aber auch benutzen, um unsere 
selbstgeschriebenen Routinen wie wirkliche Befehle einzubinden 
und somit komfortabel zu benutzen. 


21.1 DOKE - Zwei-Byte-Wert in den Speicher schreiben 


Die Einbindung mit der RSX-Methode wollen wir am Beispiel 
des DOKE-Befehls verdeutlichen. 


DOKE ist quasi ein "Doppelter POKE-Befehl". Mit POKE kann 
eine Speicherstelle mit einem Wert zwischen 0 und 255 beschrie- 
ben werden. DOKE beschreibt zwei aufeinanderfolgende Spei- 
cherstellen mit einem Wert zwischen 0 und 65500. Dazu wird 
der Wert in Low-Byte und High-Byte zerlegt. Das Low-Byte 
wird an der unteren Speicherstelle abgelegt, das High-Byte an 
der Speicherstelle mit der höheren Adresse. Mit DOKE wird das 
Ändern vieler Systemparameter die ins RAM gespeichert sind 
(üblicherweise als PEEKs und POKESs) vereinfacht. 


Die Parameterübergabe bei den RSX ist analog der des CALL- 
Befehls. 


Der DOKE Befehl benötigt zwei Parameter: Die Adresse, ab der 
der Wert gespeichert werden soll und den Wert, der ab dieser 
Adresse abgelegt werden soll. Damit hat der Befehl folgendes 
Format: 

|IDOKE, Adresse, Wert 
Die Parameter werden folgendermaßen übergeben: 


A: Enthält Anzahl der übergebenen Parameter 


Flags: Zero-Flag=l wenn keine Parameter übergeben 
wurden, sonst 0 


B: Enthält 32-Anzahl der Parameter 


DE: Enthält letzten übergebenen Parameter 
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IX: Adresse des letzten Elementes. Der vorletzte Para- 
meter steht dann an Adresse IX+2, der nächste an 
Adresse IX+4 usw. 


Die DOKE Routine sieht dann so aus: 


100 !' LD L,(IX+2) ; Üübergebene Adresse 
110 ' LD H,(IX+3) ; ins HL Register laden 
120 ' LD CHL),E ; Low Byte speichern 


' 
' 
° 
130 ' INC HL ; Adresse auf High Byte setzen 
140 ' LD CHL),D ; High Byte speichern 

150 ' RET ; fertig! 


Mit CALL &A000,Adresse,Wert könnten wir jetzt den DOKE- 
Befehl aufrufen, vorausgesetzt, er wurde ab &A000 abgespei- 
chert. Probieren Sie z.B. einmal: 


CALL &A000,..,.. 


Damit haben wir eine funktionierende DOKE-Routine. Aller- 
dings ist der Aufruf mit CALL etwas lästig. DOKE soll jetzt 
auch mit DOKE aufgerufen werden. Dazu muß eine kleine Ein- 
bindungsroutine geschrieben werden. Die Hauptarbeit nimmt uns 
dabei die Routine "LOGEXT" des Betriebssystems ab, die die 
eigentliche Einbindung vornimmt. Wir müssen lediglich einige 
Werte an Logext übergeben. 


Um DOKE einzubinden, muß das System folgendes "wissen": 


1) Name der Erweiterung 

2) Adresse der Routine 

3) Adresse von 4 unbenutzten Bytes, die intern zur 
Verwaltung der Routine benutzt werden 


Die Adresse der vier Systembytes wird vor dem Aufruf von 
Logext ins HL Register geladen. Außerdem wird BC mit der 
Startadresse einer Tabelle geladen, in der die weiteren Informa- 
tionen enthalten sind. 
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Diese Tabelle enthält als erstes die Adresse einer zweiten Tabel- 
le, nämlich der, in welcher der Name oder auch mehrere Namen 
verschiedener einzubindender Routinen enthalten ist. Auf die 
Adresse der 2ten Tabelle in der Iten Tabelle folgt ein Sprungbe- 
fehl auf die einzubindende Routine bzw. Routinen. Werden 
mehrere Routinen eingebunden, müssen Sprungbefehle und 
Routinennamen einander entsprechen. 


Die 2te Tabelle enthält, wie gesagt, die Namen der Routinen. 
Dabei muß, um die einzelnen Namen voneinander zu trennen, 
das Bit 7 des letzten Buchstaben eines Namens immer gesetzt 
sein. 


Doch betrachten wir unser Beispiel: 


10 ' LD BC,RSXTAB ; Adresse der Iten Tabelle 

20 ' LD HL,SYSBYT ; Adresse des Systembytes 

30 ' CALL &BCD1 ; Routine Logext aufrufen 

40 ' RET ; Einbindung fertig 

50 ' RSXTAB Dw NAMTAB ; Tabelle 1 enthält als erste Adresse die 
Anfangsadressen der 2ten Tabelle (Namenstabelle) 

60 '! JP START ; und dann Sprungbefehle auf die Routine 

70 * NAMTAB DM "DOK" ; Namenstabelle 

80 ' DB &C5 : =ASCC"E")+128 damit Bit 7 gesetzt ist 

90 ' DB O ; Nullbyte kennzeichnet das Ende der Namenstabelle 
95 ! SYSBYT DS 4 ; 4 Bytes für Kernal reservieren 

100 ' START LD.... hier beginnt die Routine 


Nach dem Assemblieren des gesamten Programms (bzw. BASIC- 
Lader) wird einmal mit CALL &A000 der DOKE Befehl einge- 
bunden. Von diesem Zeitpunkt an ist DOKE eine Befehlserwei- 
terung (RSX), d.h. der Befehl kann wie jeder andere im Direkt- 
modus oder im Programm benutzt werden. 


Achten Sie darauf, die Einbindungsroutine nur einmal aufzu- 
rufen. Die 4 Systembytes werden u.a. dazu benutzt, auf evtl. 
weitere RSX-Tabellen zu zeigen. Wird zum zweiten Mal dieselbe 
Routine initialisiert, so wird der Zeiger, der auf die nächste 
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RSX Tabelle zeigen soll, logischerweise wieder auf dieselbe 
Tabelle gerichtet. 


Dadurch kann es passieren, daß die Befehlserkennung in einer 
Endlosschleife hängen bleibt, was natürlich recht ungünstig ist. 
Folgendes kleines Programm verhindert zusätzlich, daß ein Wie- 
deraufruf stattfinden kann, indem es an den Anfang der Init- 
Routine einen RET-Befehl schreibt. 
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ABDB B1BRaR 18 INIT LD be,rsxtab 
ABBS Z1BR00 28 LD hl ,sysbyt 
ABB CDDIBC 38 CALL &bcedi 
ABBY7 SEC9 48 LD a,%c97 
ABUBB 32BUAD =] LD (init),a 
ABDBE C9Y 608 RET 
*##* Zeile 18 : RSXTAB=&ABOF 
ABBF BDRBB 78 RSXTAB DW namtab 
ABI C3BROR 80 JP start 
*##%* Zeile 78 : NAMTAB=&AB14 
AB14 444F4B 98 NAMTAB DM "DOK" 
AB17 CS 180 DB &c5 
ABIB BO 110 DB ["] 

**#* Zeile 28 : SYSBYT=&AB19 
AB1? 128 SYSBYT DS 4 
*#*%* Zeile 88 : START=&ABID 
AB1D DD6ED2 138 START LD 1,(ix+2) 
AuU2B DDAH053 140 LD h,(ix+3) 
Au23 73 150 LD (hl) ,e 
ABu24 23 168 INC hl 
Au2S 72 170 LD (hl),d 
AB2&a C9 180 RET 
Programm :doke 
Start : &ABBD Ende : &AB26 
Laenge : 8027 

8 Fehler 


Variablentabelle : 
INIT ABBG „RSXTAB ABBOF NAMTAB AB14 
START ABID 


SYSBYT AB19 
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21.2 RPEEK - Beliebiges Lesen aus RAM oder ROM 


Das folgende Listing zeigt, wie man die @-Funktion in Verbin- 
dung mit RSX oder CALL benutzt. 

In unserem Fall wird die Startadresse des Wertes einer 
Integervariablen mit @ ermittelt und dann an das Maschinenpro- 
gramm übergeben. Der ermittelte Wert wird dann vom 
Programm an die übergebene Adresse geschrieben und steht 
danach im BASIC unter der jeweiligen Variablen zur Verfügung. 


Das nachfolgende Programm implementiert einen erweiterten 
PEEK-Befehl mit Hilfe von RSX. Mit diesem neuen Befehl ist 
es möglich, Adressen sowohl im RAM als auch im ROM und im 
Expansions-ROM (z.B. Disketten-ROM) zu lesen. 


Der Befehl hat das Format: 

|IRPEEK ‚@Integervariable,Adresse,Status 
Also würde z.B. durch 

IRPEEK ,@w%,&C000,-7 


der Wert der an der ersten Adresse des Disketten-ROMs steht, 
in die Variable w% geladen. Wichtig ist, daß w% zuvor mindes- 
tens einmal benutzt wurde, da ansonsten @w% den Fehler 
"improper argument" hervorrufen würde. Für den Status gilt 
folgende Zuordnung: 


1: RAM 

2: ROM 

0,-1,-2 bis -251 selektieren die jeweiligen Expan- 
sions-ROMs 


Alle anderen Werte für den Status verursachen einen "improper 
argument". 


3 "IRPEEK,@Intvar. ‚Adr. ‚Status" 


Tips & Tri 

ABaD 18 
ABDO 28 
ABaa 38 
ABO 48 
ABRO 58 
ADDD 68 
ABDD 70 
; 464 : &cfee / 664 
ABBO 80 
; 464 = %c205 / 664 
ABDD Binaan 90 
ABDS 210000 198 
ABB& CDDIEBC 110 
ABBY 3ECY 128 
ABGB 320BAB 138 
ABBE C9 148 
*+++ Zeile 90 : 
ABDF BORD 1580 
AB11 CI3HDHR 168 
**%*#+ Zeile 1580 : 
AB1ı4 525904545 170 
AB1B CB 188 
ABı? 90 190 
**** Zeile 100 : 
ABIiA 208 
ABIE DF 218 
ABIF DO00 220 
Aa21 C9 230 
*#*%* Zeile 220 : 
Au22 55D® 240 
AB24 FD 258 
AB25 DF 268 
AB2& BOOO 278 
ABZ2B C7 288 
*#*#%* Zeile 270 : 
AB29 1DC2 298 
ABZ2B FD 308 


zur Maschinenspr 


h 

; Erweiterung mit RSX 

; Satus 1 :RAM 

3 2 :ROM 

; B,-1,...,-251 :Exp. ROM 
&dOSS 
&c21d 


bce,rsxtab 
hl,sysbyt 
&bcdi 
a,%c9 


(init),a 


namtab 


start 


"RPEE" 
&cb 
[%) 


4 
%18 
veki 


aopmis 
253 
&18 
vek2 


aimpar 
253 


AOPMIS EQU 
: &d858 
AIMPAR EQU 
: %&cb5® 
INIT LD 
LD 
CALL 
LD 
LD 
RET 
RSXTAB=&ABOF 
RSXTAB DW 
JP 
NAMTAB=&AQ14 
NAMTAB DM 
DB 
DB 
SYSBYT=&ABI1A 
SYSBYT DS 
OFMIS RST 
DW 
RET 
VEK1=&AQ22 
VEK1 DW 
DB 
IMPARG RST 
DW 
RET 
VEK2=&AB297 
VEK2 DW 
DB 


21 
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*#** Zeile 168 : START=&AB2C 


AB2ZC FEBS 318 START CP 3 5 zwei Parameter ? 
ABZE ZBEE 328 JR nz ,‚opmis 
; nein, dann Operand missing 

nBSB 7A 338 LD a,d 

AB31 FERB 348 CP [’) 

ABSS 28FE 358 JR Zz,noexro 
; Status>@, dann kein Expansionsrom 

ABSS FEFF 368 CP %f ; Betrag<255 ? 
AB37 2BEC 378 JR nz ,imparg 
; ja, dann improper Argument 

AQS97 7B 388 LD a,e 

ABSA ED44 398 NEG 

ABSC FEFC 400 CP 252 

ABSE SBES 418 JR nc,imparg 
ABAB 18FE 420 JR setsta 
*#*** Zeile 358 : NOEXRO=&AB42 

AB42 7B 438 NOEXRO LD a,e 

AB43 FEBS 440 CP 3 

AQ45 38DE 4508 JR nc,imparg 
AB47 CAFE 468 ADD a,254 
AB49 S@FE 470 JR nc,setsta 
AB4B D6B4 488 SUB 4 


***%%* Zeile 428 : SETSTA=&AQ4D 
*#*%* Zeile 478 : SETSTA=&ABAD 
ABAD 320000 498 SETSTA LD (status) ,a 


ABSQ DD6EBZ2 San LD 1,(ix+2) 
ABSS DDs6485 Ssı1a LD h,(ix+3) 
ABS DF 528 RST %&18 
ADS57 Ba0D 538 DW vektor 
ABS DD6EB4 548 LD 1,(ix+4) 
ABSC DD6405 558 LD h, (ix+5) 
ABSF 77 568 LD (hl),a 
ABB 97 578 SUB a 

AB&si 253 588 INC hl 

AB&a2 77 598 LD (hl),a 
ABS C9 688 RET 


***%* Zeile 5358 : VEKTOR=&AB64 
ABA BORD 618 VEKTOR DW anfang 
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**** Zeile 498 : STATUS=-&ABA& 

ABs& FD 628 STATUS DB 253 
**#* Zeile 618 : ANFANG=&AUAT7 

ABs7 7E 6538 ANFANG LD a,(hl) 
ABB C9 648 RET 
Programm :rpeek 

Start : &AQUG Ende : &AB&68 

Laenge : 8969 

@ Fehler 

Variablentabelle : 

AOPMIS DBS5S AIMPAR C21D INIT ABDBG 
NAMTAB AB14 SYSBYT ABiIA OPMIS ABIE 
IMPARG AB25 VEK2 AB27 START AB2ZC 
SETSTA AB4D VEKTOR AB64 STATUS AB66 
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RSXTAB ABOF 
VEKI1 AB22 
NOEXRO AB42 
ANFANG AB67 
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10 
28 
38 
40 
el] 
68 
78 
80 
908 
180 
1180 
128 
1580 
148 
159 
168 
170 
180 
198 
280 
218 
220 
2380 
248 
258 
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FOR i=&ABBRB TO ABB 
READ af: w=VAL("&H"+a$) 
=s+w:FOKE i,w:NEXT 
IF s<> 17592 THEN PRINT"Fehler in Datas":END 
"464: IF s{i> 17728 THEN ... 
"664: IF si> 17655 THEN ... 
PRINT"ok!"=END 
DATA 01,8F,AB,21,1A,AB,CD,Di 
DATA BC,S3E,C9,32,898,AB,C9,14 
DATA AQ,C3,2C,AB,52,508,45,45 
DATA CB,80,28,AB,BF,AB,DF,22 
DATA AB,C9,55,DU,FD,DF,29,AQ 
BA: gen gEBsCchy-egeegergen 
"bb654:2..,3:..3,98,00,.-- ygeeygenge> 
DATA C9,1D,C2,FD,FE,B3,2B,EE 
464:..,05,C2,.-geegeegengen 
"564:..,90,CD,..geegeegengen 
DATA 7A,FE,298,28,BD,FE,FF,28 
DATA EC,7B,ED,44,FE,FC,3@,ES 
DATA 18,90B,7B,FE,33,3@0,DE,C6 
DATA FE,30,02,D6,84,32,66,A8 
DATA DD,6E,82,DD,66,83,DF,64 
DATA AB,DD,6E,84,DD,66,85,77 
DATA 97,23,77,C9,67,AQB,FD,7E 
DATA C9 
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22. Der Aufbau von Feldvariablen 


In diesem Kapitel wollen wir uns kurz mit der internen 
Speicherung von Feldvariablen beschäftigen. Als praktische 
Anwendung werden wir Ihnen ein Programm vorstellen, mit 
dem Sie die Summe aller Elemente in Maschinensprache berech- 
nen können. 


Feldvariablen werden wie normale Variablen in einer Tabelle 
hinter dem BASIC-Programm gespeichert. Die Startadresse der 
Tabelle steht an Adresse &AE87 (664/6128: &AE68). Da Feld- 
variablen sehr viel Speicherplatz in Anspruch nehmen können, 
muß dieser mit dem DIM-Befehl vorzeitig reserviert werden. 
Die Feldvariablen sind, wie schon von den normalen Variablen 
bekannt, über Verkettungsadressen nach Anfangsbuchstaben in 
verkettete Listen eingeordnet. 


Der Aufbau der Feldvariablentabelle ist folgendermaßen: 


Zuerst stehen zwei Bytes, die die Verkettungsadresse enthalten. 
Darauf folgt der Name der Variablen, wobei, wie schon 
bekannt, zum ASCII Code des letzten Buchstabens 128 = &80 
addiert ist, wodurch Bit 7 dieses Codes gesetzt wird. Auf den 
Namen folgt die Typenkennziffer. Soweit ist die Feldvariablen- 
tabelle der der normalen Variablen ähnlich. 


Nun folgt die Länge der gesamten folgenden Eintragung, die als 
Zwei-Byte-Zahl abgespeichert wird. Als nächstes steht die 
Anzahl der Indices des Feldes. Darauf folgt für jeden Index des 
Feldes seine maximale Größe. 


Nach diesen Informationen folgen der Reihe nach alle Werte des 
Feldes. Dabei sind in einem INTeger-Feld für jede Eintragung 
zwei Bytes vorgesehen, die den Wert selbst enthalten. Bei 
REAL-Variablen beträgt die Länge einer Eintragung fünf Bytes. 
Auch dabei ist der Wert selbst dargestellt. Bei Stringfeldern wird 
jeweils der drei Byte lange Stringdescriptor abgespeichert. 
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Der Aufbau noch einmal in der Übersicht: 


2 Bytes Verkettungsadresse 

n Bytes für die Darstellung des Namens 

1 Byte Typenkennziffer 

2 Bytes Länge der gesamten folgenden Eintragung 
1 Byte Anzahl der Indices 

je 2 Bytes für Maximalwert jedes Index’ 

m Bytes Wert jedes Feldelementes 


Länge 2 für INTeger 
Länge 3 für String 
Länge 5 für REAL 


Das folgende Programm benutzt diese Struktur, um die Summe 
aller Elemente eines Zahlenfeldes zu bilden. Für das Format des 
Befehles schauen Sie bitte im folgenden Assemblerlisting nach. 


Ti Tri zur Maschinenspr 
ABaQ 19 

ABBD 28 

ABaD 38 

ABBO 48 

ABBO 52 

;s Format: 


h 21 


Summe eines Feldes 
gibt die Summe aller Werte 


einer Feldvariablen aus 


"call &aB88,@<variablenname (indices B,..)>,Anzahl In 


dicices,&@Variable fuer Ergebnis> 


ABOD 
AD2D 
ABBO 
ABD1 
ABDBS 
ar 
ABD4 
AQD& 
AuQ7 
ADD? 
s Adr. 
ABa7 

3 &FA9C 
ADa7 

s &FF48 
Aaa7 

; &FF66 
Aaa7 

; &ff4b 
Aaa7 
ABDOT7 

; &bd58 
Aaa7 
Aaa7 
ABQ7 
ar 
ABO7 
ABDDB 
ABBOB 
ABOD 
ADOF 


DF 
ul lu]") 
c9 
Zeile 
anon 
FD 


fue 


E} 


Zeile 
DS 
21808 
8485 
3608 
23 


68 
70 ORG %Xaßaa 
88 RST %&18 
908 DW vektor 
188 RET 
98 : VEKTOR=&AQB4 
118 VEKTOR DW sumar 
128 DB 253 ; UROM on 
138 
140 
r 6128 ; 464 „ 664 
158 IMFARG EQU &c21d 
&cb5S® improper arg. 
168 TYPMIS EQU &ff62 
&«ff62 type mismatch 
178 VARHND EQU &#ff8c 
&ff87 Variable (hl) nach (de) 
188 VARFAC EQU %&#fföc 
&fföc Variable (hl) nach FAC 
198 CPHLDE EQU &ffdB ; %tfbB „ %tfd8 CP hl,de 
2808 READHD EQU &bd7c 
&bd79 Real arithm. (hl)+(de) 
218 FAC EQU %&bBaß ; &bAc2 „ &bBad 
228 TYP EQU %&bB9f ; &bEOc1 „ &bRO9f 
238 
118 : SUMAR=&ABB7 
248 SUMAR PUSH de 
1") 258 LD h1,FAC1 ; Die fuenf Bytes 
268 LD b,S ; des FAC1 auf 
278 NEXT LD (h1),® ; null setzen 
288 INC hl 
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ABIYQ 1B8FB 298 DJNZ next 

AB1Z DD6EBA 388 LD 1,(ix+4) 

AB1S DD64605 318 LD h, (ix+5) 

; Adresse erstes Element nach HL 

AB1B DD7EB2 328 LD a,(ix+2) ; Anzahl Indices 
ABIB 47 338 LD b,a 

ABIC ES 348 PUSH hl ; Adresse erstes Element 
AB1D 87 358 ADD a,a ; Anzahl Inices # 2 
ABIE Cö5B1 368 ADD a,i ; um je 2 Bytes 

AB2B 1608 378 LD d,® ; fuer jeden Index 

Au22 SF 388 LD e,a ; von hl abziehen 

AB23 B7 398 OR a; Carry loeschen 

AB24 EDS2 400 SBC hl,de ; HL zeigt auf Anzahl 
AB2& 7E 418 LD a,(hl) ; der Indices 

Au27 BB 420 CP b ; vergleichen 

AB28 C21DC2 438 JP nz,imparg 

; wenn Anzahl Indices falsch: "improper Argument" 

ABZB 2B 440 DEC hl ; Feldlaenge 

AuB2C 2B 450 DEC hl ; ueberspringen 

AQZD 2B 468 DEC hl 5; HL zeigt dann 

ABZE 7E 470 LD a,(hl) ;5 auf Typenkennziffer 
ABZF C6B1 480 ADD a,il 

ABS1 FEBS3 490 CP 3 5 wenn String, dann 

ABS3 CASZFF 58 JP z,typmis ; Type mismatch 
ABS& AF 518 LD c,a 

AB37 329FBO 520 LD (TYP),a 

ABSA 23 538 INC hl 

ABSB SE 548 LD e,(hl) ; Laenge des 

ABSC 23 558 INC hl ; Feldes in 

ABSD 56 568 LD d,(hl1) ; Bytes zu HL 

ABSE 19 578 ADD hl,de ; addieren = Ende Feld 
ABSF ES 588 EX (sp) ,hl 

; Anfang mit Ende tauschen 

ADAD 2400 598 LD b,® 

ABA42 F3 688 DI ; weils schneller ist 
ABA3 ES 618 WEITER PUSH hl ; Adresse naechstes Element 
AB44 C5 628 PUSH bc ; Typ inc 

AB45 CDACFF 630 CALL varfac ; var (hl) nach FAC 


ABAB Z1ABBO 648 LD hl,fac 
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AB4B 110000 650 LD de,faci 

AB4E FEBS 668 CP 5 ; Real ? 

ABSa@ 28FE 678 JR z,real 

AuS2 7E &88 LD a,(hl) 

ABSS 23 698 INC hl ; Wert des aktuellen 
ABS4 66 788 LD h,(hl) ; Elementes holen 
ABSS 6F 7ı8 LD l,a 

ABS EB 7208 EX de,hl 

ABS7 7E 738 LD a,(hl) ; Wert der Summe 
ABSB8 23 748 INC hl ; holen 

ABS? 66 758 LD h,(hl) 

ABSA 6F 768 LD l,a 

AQSB 19 778 ADD hil,de 

ABSC 220000 788 LD (FAC1),h1l ; FAC1=hl 

ABSF 18FE 798 JR break 

***%* Zeile 678 : REAL=&AB61 

ABs1 EB 808 REAL EX de,hl 

AB&s2 CD7CBD 818 CALL readhd ; real (hl)=(hl)+(de) 
***%* Zeile 798 : BREAK=&AB65 

ABS Ci 828 BREAK POP bc ; Typinc 

ABs&A Ei 830 POP hl 5; HL auf naechste Adresse 
AB67 09 848 ADD hl,bc ; setzen 

AB&AB DI 850 POP de ; Endadresse 

AB69 DS 868 PUSH de 

ABAA CDDBFF 878 CALL cphlde ; Vergleich hl mit de 
AB&D 38D4 888 JR c,weiter 

ABGF FB 8908 EI ; Ende der Summenbildung 
AQ7O Di 900 POP de 

AB71 210000 918 LD hl,FAC1 

AQ74 Di 928 POP de ; Zieladresse Ergebnis 
AB7S CDBSCFF 938 CALL varhnd ; kopieren 

AB78 C9 948 RET 


**#* Zeile 258 : FAC1=%&AB79 
**** Zeile 6558 : FAC1=&AB79 
*%#%* Zeile 788 : FAC1=%&AB79 
**%*%* Zeile 918 : FAC1=&AQB79 
AB79 958 FACI DS 5 


Programm :sumfeld 
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Sta 


rt : &AQQQ 
Laenge : BO7E 


Fehler 


Ende : 


Variablentabelle : 


VEK 


TOR ABA 


VARFAC FF&C 


TYP 


BOYF 


REAL AB&s1 


18 
20 
38 
40 
5a 
60 
78 
80 
978 
198 
118 
120 
158 
148 
1580 
1680 
178 
188 
1970 
2008 
218 
2280 
258 


IMPARG C21D 
CPHLDE FFDB 
SUMAR ABB7 
BREAK AB6s5 


&ABTD 


TYPMIS FFö&2 
READHD ED7C 
NEXT AUBBD 
FAC1 Aa7?7 


REM 


BASIC Lader fuer 6128 


REM Frogramm sumfeld 
FOR i=&ABBR TO &AB7D 
READ a$:w=VAL("&H"+a$) 


s=Ss+tw: 


FOKE i ,w:NEXT 


VARHND FF&C 
FAC BOAD 
WEITER AB43 


IF s<> 15294 THEN PRINT"Fehler in Datas":END 
PRINT"ok!":END 

DATA DF,84,AQ,C9,87,AB,FD,DS 
DATA 21,79,AQ,06,05,36,08,23 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


18,FB,DD,6E,84,DD,66,85 
DD,7E,82,47,E5,87,C6,B1 
16,00,5F,B7,ED,52,7E,B8 
C2,1D,C2,2B,2B,2B,7E,C6 
01,FE,83,CA,62,FF,4F,32 
9F ,BB,23,5E,23,56,19,E3 
06,88,F3,E5,C5,CD,6C,FF 
21,AQ,B®,11,79,AB,FE,85 
28,8F ,7E,23,66,6F,EB,7E 
23,66,6F,19,22,79,AB,18 
04 ,EB,CD,7C,BD,C1,E1,89 
D1,D5,CD,D8,FF,38,D4,FB 
D1,21,79,AQ,D1,CD,8C,FF 
C9,86,08,8D,28,CC 


Tj 


18 
28 
38 
48 
58 
68 
708 
88 
90 
180 
118 
120 
158 
148 
158 
168 
178 
188 
198 
200 
218 
220 
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REM Sumfeld fuer 464 
FOR i=&ABBB TO &AB7D 
READ a$:w=VAL ("&H"+a$) 
s=s+w:FPOKE i,w:NEXT 
IF s<> 15372 THEN PRINT"Fehler in Datas":END 
PRINT"ok!"=END 

DATA DF,84,AB,C9,87,AB,FD,DS 
DATA 21,79,AB,85,05,56,80,23 
DATA 18,FB,DD,5E,34,DD,66,85 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DD,7E,82,47,E5,87,C6,81 
16,80,5F,B7,ED,52,7E,B8 
C2,9C,FA,2B,2B,2B,7E,C6 
BD1,FE,83,CA,40,FF,AF,32 
C1,B@,23,5E,23,56,19,E3 
06,00,F3,E5,C5,CD,4B,FF 
21,C2,B®,11,79,AB,FE,85 
28,BF,7E,23,66,64F,EB,7E 
23,66,6F,19,22,79,AB,18 
04 ,EB,CD,58,BD,C1,E1,89 
D1,D5,CD,B8,FF,38,D4,FB 
D1,21,79,AQB,D1,CD,66, FF 
C9,864,88,0D,28,CC 


223 


224 


18 
28 
38 
42 
1.) 
68 
70 
80 
98 
180 
118 
120 
158 
140 
158 
168 
170 
188 
198 
200 
218 
228 


P 


REM Sumfeld fuer 664 
FOR i=tABBB TO %ABT7D 
READ a$:w=VAL("&H"+a#) 


s=5+tw: 


FOKE i,w:NEXT 


Ti 
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IF s<> 15346 THEN PRINT"Fehler in Datas":END 
PRINT"ok!"=END 

DATA DF,84,AB,C9,87,AQ,FD,DS 
DATA 21,79,AB,86,85,3568,80,23 
DATA 18,FB,DD,6E,84,DD,66,85 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DD,7E,82,47,E5,87,C6,B1 
16,08,5F ,B7,ED,52,7E,B8 
C2,58,CB,2B,2B,2B,7E,C6 
B1,FE,803,CA,62,FF,4F,32 
9F ,B®,23,5E,23,56,19,E3 
864,00,F3,E5,C5,CD,6C,FF 
21,A8,BB,11,79,AB,FE,85 
28,0F ,7E,23,66,6F ,EB,7E 
23,66,6F ,19,22,79,AB,18 
84,EB,CD,79,BD,C1,E1,09 
D1,D5,CD,D8,FF,38,D4,FB 
D1,21,79,A8,D1,CD,87,FF 
C9,06,08,0D,28,CC 
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23. Maschinenprogramme beweglich gemacht: 
Relokalisation 


23.1 Warum Relokalisation? 


Fast jeder, der Maschinenprogramme - besonders Befehlserwei- 
terungen - schon mehrfach benutzt hat, seien sie nun selbst 
geschrieben oder von jemand anderem übernommen, kennt 
dieses Problem: 

Jedes für sich genommen, laufen diese Programme einwandfrei. 
Will man aber zwei oder gar mehrere dieser Programme kombi- 
nieren, also gleichzeitig im Speicher verfügbar halten, so 
ergeben sich schon die Probleme. Das eine dieser schwerwiegen- 
den Probleme bei der Kombination von Befehlserweiterungen 
resultiert aus der Umlegung von Vektoren. Es führt dazu, daß 
die zuletzt geladene Erweiterung die durch die zuerst geladene 
gemachten Änderungen an den Vektoren zur Befehlserkennung 
wieder rückgängig macht. Dieses Problem existiert beim CPC 
aufgrund der komfortablen Möglichkeit der RSX-Erweiterungen 
(RSX = Resident System Expansion) zum Glück nicht. Durch die 
Verwendung des RSX-Mechanismus können in dieser Hinsicht 
Befehlserweiterungen praktisch beliebig kombiniert werden. Es 
brauchen nämlich für die Erkennung von Erweiterungsbefehlen 
keine Vektoren des Betriebssystems umgelegt zu werden; die 
Erkennung von externen Befehlen ist im Betriebssystem bereits _ 
vorgesehen. 


Das andere Problem, das sich bei der Kombination von 
Maschinenprogrammen ergibt, ist jedoch nicht vom Betriebs- 
system, sondern von einer Eigenschaft der Maschinensprache 
selbst abhängig: Ein Maschinenprogramm ist prinzipiell an einen 
bestimmten festen Speicherbereich, für den es geschrieben 
wurde, gebunden. Es kann zwar an einer beliebigen Stelle im 
Speicher stehen, ist aber nur an dem ihm zugedachten Ort auch 
ausführbar. Dies rührt daher, daß viele Befehle der Maschinen- 
sprache sich auf absolute Speicheradressen beziehen. Bei den 
Befehlen, die sich auf Adressen innerhalb des Maschinen- 
programmes selbst beziehen, ergibt sich daher als logische Kon- 
sequenz, daß diese Befehle nur dann an der angesprochenen 
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Adresse den Programmteil oder die Daten vorfinden, auf die sie 
zugreifen sollen, wenn das Programm auch an der richtigen 
Stelle im Speicher steht. 

Da nun aber Befehlserweiterungen in der Regel möglichst weit 
am oberen Ende des verfügbaren Speichers stehen, um möglichst 
wenig des kostbaren Speicherplatzes für BASIC-Programme zu 
beanspruchen, ergibt sich ein schwerwiegendes Problem bei der 
Kombination von Befehlserweiterungen: Für gewöhnlich kolli- 
dieren diese bei der Belegung des Speicherplatzes, wodurch eine 
später geladene Befehlserweiterung zumindest einen Teil einer 
vorher geladenen Erweiterung auslöscht. Die fatale Folge dieser 
Kollision ist zumeist ein Absturz des Rechners oder mindestens 
eine Fehlfunktion der zuerst geladenen Befehlserweiterung. 


23.2 Wie Relokalisation im allgemeinen funktioniert 


Das Zauberwort zur Behebung der bis hierhin beschriebenen 
Schwierigkeiten bei der Kombination von Maschinenprogram- 
men heißt "Relokalisation". Hinter diesem klangvollen Fremd- 
wort verbirgt sich eine Technik, die ein Maschinenprogramm 
durch Anpassung der sich auf das Programm selbst beziehenden 
Adressen zumindest teilweise von der absoluten Adresse des 
Programmes unabhängig macht. Um dies zu erreichen, gibt es 
verschiedene Möglichkeiten: 


Die erste dieser Möglichkeiten beruht auf der Verwendung von 
speziellen Zwischenfiles, die einen speziellen Lader-Code 
enthalten, der neben dem eigentlichen Programm noch für die 
Relokalisation wichtige Informationen enthält. Dieser Lader- 
Code ist noch nicht als Maschinenprogramm ausführbar. Er muß 
erst noch mittels eines speziellen Ladeprogrammes in den ihm 
zugedachten Speicherbereich gebracht werden, wobei er automa- 
tisch in ein in diesem Speicherbereich lauffähiges Programm 
umgewandelt wird. Bei dem für diese Aufgabe verwendeten 
Ladeprogramm handelt es sich in der Regel nicht nur um ein 
einfaches Ladeprogramm, sondern um einen sogenannten Linker. 
Ein Linker ist nicht nur in der Lage, Programme zu laden und 
zu starten, sondern auch, mehrere relokative Programm-Module 
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automatich zu einem Gesamtprogramm zusammenzufügen 
(daher der Name: engl. "to link" = "verbinden"). 

Auf diese Weise arbeitet zum Beispiel die Firma Microsoft bei 
ihrem MACROß80-Assembler. Der dazugehörige Linker bietet 
neben der Auswahl, ob das endgültige Programm gestartet, als 
ausführbares Maschinenprogramm auf Diskette gespeichert oder 
einfach im Speicher belassen werden soll, noch die Möglichkeit 
des automatischen Einbindens von Routinen aus einer Bibliothek 
an. Auch der Zugriff von einem Programm-Modul auf Teile 
oder Daten eines anderen gleichzeitig geladenen Programm- 
Moduls ist kein Problem; er wird über sogenannte "globale 
Labels" abgewickelt, die praktisch komplett vom Linker verwal- 
tet werden. 

Was die gebotenen Möglichkeiten angeht, ist diese Methode 
zweifellos als die beste zu bezeichnen. Es ergeben sich hier 
Möglichkeiten, deren Flexibilität und Vielseitigkeit praktisch nur 
noch durch Speicherplatz, Rechnergeschwindgkeit und Einfalls- 
reichtum begrenzt sind. Größere Maschinenprogramme können 
mit diesem Softwarepaket nach allen Regeln der Kunst struktu- 
riert und modular aufgebaut werden; sie sind besonders über- 
sichtlich und änderungsfreundlich. 

Es ist zum Beispiel möglich, Programm und Daten in beliebigen, 
voneinander getrennten Speicherbereichen unterzubringen, was 
sich als sehr praktisch erweist, wenn man sein Programm in ein 
EPROM brennen möchte. 

Die erheblichen Vorteile dieser Lösung müssen aber mit einem 
recht hohen Aufwand bezahlt werden: Es ist ein spezieller 
Assembler vonnöten, der den speziellen Lader-Code erzeugt. 
Dieser Assembler ist nicht nur wesentlich umfangreicher als ein 
normaler, sondern aufgrund der erheblich erweiterten Möglich- 
keiten ist es auch erheblich schwieriger, ihn in seinem vollen 
Umfang zu nutzen. Auch der Linker ist ein nicht gerade kleines 
Programm. 


Die zweite Möglichkeit geht von einem, mit einem beliebigen, 
ganz normalen Assembler geschriebenen Programm aus. Das 
Programm wird mit dem Assembler auf irgendeine prinzipiell 
beliebige Basisadresse festgelegt. (Zum Test des Programmes 
empfiehlt sich allerdings eine Adresse, an der das Programm 
ausführbar ist.) Nun beginnt die Knochenarbeit: Das relokativ zu 
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machende Programm muß mit einem speziell auf dieses 
Programm ausgelegten Ladeprogramm versehen werden, das die 
gewünschte Basisadresse erfragt oder sonstwie ermittelt und 
zwischen Laden und Starten des Programmes die Adressen, die 
sich auf Ziele innerhalb des Programmes selbst beziehen, auto- 
matisch ändert. 

Das eigentliche Ladeprogramm sieht zwar prinzipiell immer 
wieder gleich aus und kann ohne weiteres auch in BASIC 
geschrieben sein, doch muß die Tabelle der anzupassenden 
Adressen für jedes Programm einzeln erstellt und bei fast jeder 
Programmänderung immer wieder entsprechend angepaßt 
werden. Diese Tabelle ist schon bei mittleren Programmen recht 
umfangreich und wächst drastiich mit der Länge des 
Programmes. 

Eine automatische Erstellung dieser Tabelle, beispielsweise durch 
ein Hilfsprogramm, das seine Informationen aus speziellen 
Kommentaren im Assembler-Sourcecode bezieht, ist zwar denk- 
bar, doch ist sowohl die Erstellung dieses Hilfsprogrammes als 
auch dessen Handhabung relativ aufwendig. 


Es gibt da noch eine weitere Methode, die allerdings mehr 
experimentellen Charakter hat: Ein "automatischer Relokalisator" 
disassembliert quasi das zu behandelnde Programm und nimmt 
gegebenenfalls eine entsprechende Änderung der Adresse vor, 
und zwar abhängig davon, ob ein Befehl, der eine absolute 
Adresse enthalten könnte (16-Bit-Ladebefehle, absolute Sprung- 
befehle und Ladebefehle mit erweiterter oder erweiterter 
unmittelbarer Adressierung), sich auf eine Adresse innerhalb des 
Programmes selbst bezieht. Diese Methode ist sehr bequem zu 
handhaben, aber äußerst unzuverlässig; Sobald es in dem 
behandelten Programm eine sich auf das -Programm selbst 
beziehende Adressentabelle gibt, funktioniert sie schon nicht 
mehr. Außerdem muß ja ein Wert hinter einem 16-Bit-Lade- 
befehl, selbst dann, wenn er einer Adresse innerhalb des 
Programmes entspricht, nicht immer eine Adresse sein; Zähler- 
Startwerte und andere Konstanten werden von solchen Reloka- 
lisatoren in diesem Fall rücksichtslos geändert. 

Aus diesen Gründen kann es also bei Programmen von nennens- 
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wertem Umfang praktisch nur noch als Zufall bezeichnet 
werden, wenn ein solches Programm ein brauchbares Ergebnis 
liefert. 


23.3 Es geht auch einfacher! 


Die ersten beiden der im vorigen Abschnitt vorgestellten 
Relokalisationsmethoden sind recht weit verbreitet - was man 
von der dritten Methode aus gutem Grund nicht sagen kann. 
Diese beiden Methoden haben aber jeweils entscheidende Nach- 
teile: Die erste Methode erfordert die Neuanschaffung nicht 
gerade billiger Programme und die Einarbeitung in ein neues 
System der Assemblerprogrammierung. Die zweite Methode 
erfordert ausgiebige "Handarbeit". 


Die Methode, die wir Ihnen hier vorstellen möchten, hat mit den 
drei bisher beschriebenen Methoden recht wenig gemeinsam. Sie 
werden im folgenden eine Relokalisationsmethode kennenlernen, 
die mit minimalem Aufwand (Das hierfür nötige spezielle 
Maschinenprogramm ist nur 42 Bytes lang!) fast alle anfallenden 
Relokalisationsaufgaben übernehmen kann. 


Das Prinzip, auf dem diese Methode basiert, ist ebenso einfach 
wie genial: Das Problem der Unbeweglichkeit von Maschinen- 
programmen bestünde fast gar nicht, wenn es Äquivalente zu 
den relativen Sprungbefehlen (JR) auch für die JP- und CALL- 
Befehle (mit 16-Bit-Sprungdistanz - versteht sich -, um auf den 
gesamten Speicher zugreifen zu können) sowie für die Ladebe- 
fehle mit erweiterter oder erweiterter unmittelbarer Adressie- 
rung gäbe. Und da haben wir uns gedacht: Wenn diese Befehle 
so sehr fehlen, bauen wir sie doch einfach zusätzlich ein. Das 
"Erfinden" neuer Befehle ist nun aber nicht gerade eine alltäg- 
liche Sache, weswegen wir die Vorgehensweise einmal etwas 
genauer beschreiben werden. 

Bei der Konstruktion unserer neuen Befehle bedienen wir uns 
einer Methode, die die Konstrukteure des Z80 bereits vorge- 
zeichnet haben, der Prefix-Methode. Sie beruht darauf, daß 
einem bereits definierten Opcode durch Voranstellung eines so- 
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genannten Prefix eine abgewandelte Bedeutung zu geben. So 
wird zum Beispiel aus einem Befehl, der sich auf das HL- 
Register bezieht, durch das vorangestellte Prefix &DD ein 
Befehl für das IX-Register, durch &FD einer für das IY- 
Register. Durch unser neu zu schaffendes Prefix soll nun ein 
beliebiger Befehl mit 16-Bit-Operand dahingehend geändert 
werden, daß der Operand nicht absolut genommen wird, sondern 
sich relativ auf den jeweiligen Stand des Programmzähler- 
Registers (PC) bezieht. Auf diese Weise können dann innerhalb 
eines Programmes Programmteile oder Daten relativ zur Adresse 
des zugreifenden Befehls angesprochen werden, wodurch die 
tatsächliche absolute Adresse des Programmes für diese Zugriffe 
unerheblich wird. 


Natürlich können wir zur Einführung unserer zusätzlichen 
Befehle nicht einfach die Funktion des Z80-Prozessors ändern. 
Statt dessen benötigen wir ein kleines (wie gesagt: 42 Bytes) 
Hilfsprogramm, das beim Auftreten unseres Relokalisations- 
Prefix aufgerufen wird und entsprechend reagiert. Als Prefix 
benutzen wir die im CPC-Betriebssystem für Benutzerzwecke 
freigehaltene Instruktion RST &30 (entspricht von der Funktion 
her einem CALL &0030). Es ginge zwar auch mit einem 
einfachen CALL-Befehl, doch hat dies, vor allem im Hinblick 
auf Verarbeitungsgeschwindigkeit und Speicherplatzausnutzung, 
recht große Nachteile. Der Vorteil der RST-Instruktion liegt in 
der Tatsache, daß sie, im Gegensatz zum CALL-Befehl, prak- 
tisch ohne Angabe einer Sprungadresse funktioniert und nur ein 
Byte belegt. 

Die Instruktion RST &30 wird einfach vor den relativ zu inter- 
pretierenden Befehl gestellt. Bevor beim Lauf des Programmes 
der eigentliche Befehl ausgeführt wird, kommt der Prozessor zu 
unserem RST &30 und führt das dazugehörige Unterprogramm 
aus. Dieses Unterprogramm pickt sich nun aus dem Befehl, zu 
dem es gehört, die relative Adresse heraus (wo der Befehl steht, 
geht aus der auf dem Stack stehenden Rücksprungadresse des 
RST-Befehls hervor), berechnet aus dieser und der Basisadresse 
(sie ist gleich der Rücksprungadresse) die effektive Adresse, 
schreibt diese in den Befehl hinein, überschreibt den RST- 
Befehl, der es aufgerufen hat, durch eine NOP-Instruktion und 
kehrt zum eigentlichen Programm zurück, wo dann der eigent- 
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liche Befehl ausgeführt wird. Durch diese Methode ist das 
Programm, sobald es einmal ausgeführt wurde, doch wieder an 
seinen Speicherplatz gebunden, doch kommt der Fall, daß ein 
Programm während seiner Benutzung noch im Speicher bewegt 
werden muß, praktisch nicht vor. Es ginge zwar auch anders, 
doch wäre dafür ein erheblich umfangreicheres Hilfsprogramm 
notwendig, das auch wesentlich mehr Rechenzeit benötigen 
würde. Ein solches Programm müßte, im Gegensatz zum hier 
verwendeten Programm, die jeweiligen Befehle erkennen und 
deren Funktion eigenständig ausführen. Unser Programm ver- 
sieht den Befehl jedoch nur mit der korrekten Adresse und läßt 
den Prozessor den Befehl selbst ausführen. Der erhebliche 
Geschwindigkeitsvorteil unseres Programmes beruht dabei nicht 
nur auf der Tatsache, daß das Hilfsprogramm nicht nur auf die 
Erkennung und Simulation des auf die RST-Instruktion 
folgenden Befehls verzichten kann, sondern vor allem daraus, 
daß es nur beim ersten Durchlauf des Befehls überhaupt in 
Aktion tritt; danach steht hinter dem behandelten Befehl die 
korrekte absolute Adresse und der Befehl kann ganz normal aus- 
geführt werden. Zusätzliche Rechenzeit wird dann nur noch für 
die vor dem Befehl stehende NOP-Instruktion gebraucht, die 
sehr schnell abgearbeitet wird. 


23.4 Das Relokalisations-Programm 


Nun soll vorläufig einmal genug der grauen Theorie sein. Sehen 
Sie sich erst einmal das Listing unseres Hilfsprogrammes an. In 
der nachfolgenden eingehenden Funktionsbeschreibung werden 
sicherlich die theoretischen Grundlagen dieser Methode wesent- 
lich klarer. 


Hier das Listing des Relokalisations-Hilfsprogrammes: 


0000 E3 RELRST EX (SP),HL ; HL sichern, Rueck- 
sprungadresse nach HL 

0001 D5 PUSH DE ; DE sichern 

0002 cC5 PUSH BC ; BC sichern 


0003 F5 PUSH AF AF sichern 
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0004 
0005 
0006 
0008 
000A 
000C 
000E 
0010 
0012 
0013 
0014 
0015 
0016 
0017 


0018 


0019 


001A 
0018 


001C 
001D 
001E 
001F 


0020 
0021 


0022 


0024 


0025 
0026 


E5 


FE 
28 
FE 
28 
FE 
20 


23 
5E 
23 
56 
2B 
EB 
c1 


c5 
09 


03 


E1 


2B 


36 


23 


F1 
c1 


ED 
08 
DD 


FD 
01 


00 


SKPPFX 
NOPFX 


PUSH 
LD 
cp 
JR 
cp 
JR 
CP 
JR 
INC 
INC 
LD 
INC 
LD 
DEC 


EX 


POP 


PUSH 
ADD 


EX 
LD 
INC 


LD 


POP 
DEC 


LD 


INC 


POP 
POP 


HL 
A,CHL) 
&ED 
2,SKPPFX 
&DD 
Z,SKPPFX 
&FD 

NZ ,NOPFX 
HL 

HL 
E,CHL) 
HL 
D,CHL) 
HL 


DE,HL 


BC 


BC 
HL,BC 


DE,HL 
(HL),E 
HL 


(HL),D 


HL 
HL 


(HL),&00 


HL 


AF 
BC 


P 
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Ruecksprungadr. sichern 
1. Byte des Befehls 
; Test auf Prefix 


Prefix ueberspringen 
HL zeigt auf Adressfeld 
Offset Low-Byte 


mn. 


; und High-Byte holen 

; HL zeigt auf Anfang des 
Adressfeldes 

; Zeiger auf Adressfeld 
nach DE, Offset nach HL 
; Ruecksprungadresse 
(=Basisadresse) nach BC 
; und wieder auf Stack 

; Offset zu Basisadresse 
addieren 

; Adressfeld-Zeiger nach 
HL, eff. Adr. nach DE 

; Eff. Adresse Low-Byte 


; und High-Byte in Adress- 
feld schreiben 

; Ruecksprungadr. nach HL 
; HL zeigt auf RST- 
Instruktion 

; RST-Instruktion durch 
NOP ersetzen 

; HL enthaelt wieder 
Ruecksprungadresse 

; AF zurueckholen 

; BC zurueckholen 
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0027 DI POP DE ; DE zurueckholen 

0028 E3 EX (SP),HL ; HL zurueckholen, Rueck- 
sprungadresse auf Stack 

0029 cC9 RET ; Ruecksprung 


Daß die Basisadresse dieses Assemblerlistings bei &0000 liegt, 
bedeutet auf den ersten Blick, wie Ihnen vielleicht schon auf- 
gefallen ist, daß es an dieser Adresse nie und nimmer ausführ- 
bar ist. Der RAM-Bereich von &0000 bis &003F ist für 
Benutzerprogramme absolut tabu, weil er die wichtigsten und 
meistverwendeten Betriebssystemvektoren enthält. (Eine Aus- 
nahme davon stellt lediglich der bereits erwähnte RST &30- 
Vektor dar.) 

Diese Tatsache ist allerdings kein Beinbruch, denn es handelt 
sich dabei um relative Adressen. Sie stellen also nicht die 
tatsächliche absolute Speicheradresse dar, sondern lediglich die 
Distanz zu einer noch zu bestimmenden Basisadresse. 

Die Angabe von relativen Adressen ist bei relokativen 
Assemblern üblich; es hat ja ohnehin keinen Wert, absolute 
Speicheradressen anzugeben, wenn die tatsächliche Basisadresse 
noch gar nicht feststeht. 

Sollte Sie dies stören, so denken Sie sich einfach ein A an Stelle 
der ersten 0 in jeder Adresse. Dadurch ändert sich am Sinn des 
Listings und an der Funktionsfähigkeit des Programmes nichts, 
außer daß es mit der Basisadresse &A000 auch ausführbar ist. 
Unser kleines Hilfsprogramm ist übrigens, da in ihm kein einzi- 
ger Befehl vorkommt, der sich auf eine absolute Adresse 
bezieht, schon von vorne herein relokativ, das heißt, es kann 
ohne jegliche besondere Maßnahme in jedem beliebigen, für 
Programme zugänglichen Speicherbereich betrieben werden. 
Über die Ermittlung der tatsächlichen Basisadresse erfahren Sie 
im folgenden Abschnitt mehr. 


Trotz des geringen Umfangs des Programmes erfüllt es voll- 
kommen die gestellten Anforderungen. 


Eine eigentlich selbstverständliche Eigenschaft dieses Program- 
mes, die bis hier hin noch nicht erwähnt wurde, soll nicht 
verschwiegen bleiben: Da es quasi als Befehlssatzerweiterung des 
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Z80-Prozessors fungieren soll, muß darauf geachtet werden, daß 
es nicht irgendwelche Register verändert. Ein wirklich univer- 
seller Einsatz ist nur dann möglich, wenn das Unterprogramm 
nach außen hin keinen Einfluß auf die Register hat. Aus diesem 
Grunde werden sämtliche benutzten Register am Beginn des 
Programmes gerettet (PUSH) und vor dem Rücksprung wieder 
vom Stack geholt (POP). 

Eine weitere Eigenschaft dieses Relokalisationsprogrammes soll 
hier noch erwähnt werden, die zwar in den allermeisten Fällen 
unerheblich ist, doch wenn sie einmal zu einem Fehler führt, 
dann sucht man lange danach, wenn man folgendes nicht weiß: 
Da das Betriebssystem des CPC-Rechners das untere ROM aus- 
schalten muß, um an den Vektor für den RST-Befehl heranzu- 
kommen (der zeigt ja später auf unser Programm), ist dieses 
ROM, auch wenn es vorher eingeschaltet war, nach dem Aufruf 
des RST &30 ausgeschaltet. 


23.5 Das Ladeprogramm 


Bevor wir nun zu einer eingehenden Funktionsbeschreibung 
anhand eines Beispiels kommen, sollten wir noch zwei wichtige 
Fragen im Zusammenhang mit dem Betrieb des Programmes 
klären: "Wie kommt das Programm an den ihm zugedachten 
Ausführungsort?" (Das Listing enthielt aus gutem Grund keine 
Angabe über die Basisadresse des Programmes!) und "Wie wird 
dafür gesorgt, daß beim Aufruf des RST &30 auch wirklich das 
Relokalisationsprogramm angesprungen wird?". 


Beantworten wir zunächst einmal die zweite Frage. Abgesehen 
davon, daß der Befehl RST &30 nur ein Byte lang ist und 
schneller ausgeführt wird, entspricht er genau dem Befehl 
CALL &0030. An der Stelle &0030 im RAM stehen nun dem 
Benutzer acht Bytes zur Verfügung, von &0030 bis einschließ- 
lich &0037, die er zum Aufruf seiner RST-Routine verwenden 
kann. Da kaum eine Routine in den acht Bytes Platz haben 
dürfte, muß von dort aus ein Vektor auf die gewünschte 
Routine gelegt werden. Dieser besteht lediglich aus einer unbe- 
dingten Sprunganweisung (JP). Es müssen also nur der entspre- 
chende Opcode (&C3) nach &0030 und die Ansprungadresse 
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unseres Programmes nach &0031 und &0032 gebracht werden. 
Immer, wenn nun ein RST &30 ausgeführt wird, wird über 
diesen Sprungbefehl die dazugehörige Routine aufgerufen. 

Da wir für das Setzen des RST-Vektors auf unsere Routine 
deren Startadresse (sie ist hier gleich der Basisadresse) benötigen, 
führt uns dies zu unserer ersten Frage zurück: Wie wird die 
Basisadresse ermittelt und wie gelangt das Programm dorthin? 


Bei der Unterbringung unseres Hilfsprogrammes im Speicher 
kommt uns die Tatsache, daß es bereits ohne besondere Vor- 
kehrungen vollkommen relokativ ist, sehr entgegen. Es ist 
dadurch möglich, ohne besonderen Aufwand einen Lader für 
unser Programm zu schreiben, der es automatisch dahin bringt, 
wo es am günstigsten liegt: an das obere Ende des freien 
Speichers. 

Zum Laden des Programmes benutzen wir der Einfachheit 
halber eine Variante des bekannten BASIC-Laders. Dieser Lader 
dürfte aufgrund des geringen Umfang des Hilfsprogrammes auch 
keine größeren Schwierigkeiten beim Abtippen bereiten. 


Hier ist das Ladeprogramm: 


10 REM BASIC-Lader fuer Relokalisations-Hilfsprogramm Ver. 1.0 
20 REM (hr) 11/85 

30 MEMORY HIMEM-42 

40 FOR mptr=HIMEM+1 TO HIMEM+42 

50 READ byte 

60 POKE mptr,byte 

70 cs=cs+byte 

80 NEXT 

90 IF cs<>&H165C THEN PRINT CHR$(7);"Pruefsummenfhler! u= 
HEX$(cs):STOP 

100 REM RST-Vektor setzen: 

110 POKE &H0030,&HC3:POKE &H0031,CHIMEM+1) AND 255:POKE &H0032, 
(HIMEM+1)/256 

120 PRINT "Relokalisations-Hilfsprogramm korrekt geladen bei "; 
HEX$CHIMEM, 4) 

130 END 

1000 DATA &HE3,&HD5 ,&HC5,&HF5,&HES,&H7E,&HFE ,&HED 
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1005 DATA &H28,&H08,&HFE,&HDD,&H28,&H04,&HFE,&HFD 
1010 DATA &H20,&H01,&H23,&H23,&H5E ,&H23,&H56,&H2B 
1015 DATA &HEB,&HC1,&HC5,&H09,&HEB,&H73,&H23,&H72 
1020 DATA &HE1,&H2B,&H36,&H00,&H23,&HF1,&HC1,&HD1 
1025 DATA &HE3,&HC9 


Programmbeschreibung: 


30: 


40-80: 


90: 


110: 


120: 


130: 


Durch Herunterstzen von HIMEM wird Patz am 
oberen Speicherende reserviert. 


Der Maschinencode wird aus den DATA-Zeilen 
gelesen und in dem reservierten Bereich gespei- 
chert. In Zeile 70 wird dabei die Prüfsumme auf- 
summiert. 


Hier wird die ermittelte Prüfsumme mit der vorge- 
gebenen vergichen und gegebenenfalls ein Fehler 
gemeldet (unter Angabe der falschen Prüfsumme) 
und das Programm abgebrochen. 


Umlegung des RST &30-Vektors auf die 
Startadresse des Hilfsprogrammes. 


Es wird unter Angabe der Basisadresse des Reloka- 
lisationsprogrammes der Erfolg des Ladeprozesses 
gemeldet. 


Hier wird das Programm beendet. Statt des END- 
Befehls kann hier auch der Befehl NEW eingesetzt 
werden, der das nach erfolgtem Laden unnötige 
BASIC-Programm automatisch löscht. Diese Ver- 
sion des Programmes muß natürlich vor dem ersten 
Start gespeichert werden, da es sich nach erfolg- 
reichem Durchlauf selbsttätig löscht! 


Dieser BASIC-Lader erledigt alles, was zur Installation unseres 
Hilfsprogrammes nötig ist: Die Ermittlung der Basisadresse 
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(HIMEM minus Programmlänge), die Reservierung von 
Speicherplatz (MEMORY-Anweisung),, den Transfer des 
Programmes in den resrvierten Bereich und die Einrichtung des 
Vektors. Nun brauchen wir es nur noch zu benutzen... 


23.6 Die Anwendung des Relokalisationsprogrammes 


Wie hat nun ein Assembler-Programm auszusehen, wenn es für 
den Betrieb mit dem Relokalisations-Hilfsprogramm geeignet 
sein soll? 

Die Änderungen, die an einem normalen Assembler-Programm 
vorzunehmen sind, um es fit für unser Relokalisationsprogramm, 
sind nicht sehr gravierend. Es brauchen an dem Programm selbst 
nur die folgenden beiden Änderungen vorgenomen zu werden: 


r Jedem Befehl, der sich auf eine in seinem Operan- 
denfeld angegebene Adresse bezieht, muß der Befehl 
RST &30 direkt vorangestellt werden. 


° In denselben Befehlen muß die absolute Adresse 

durch eine PC-relative Adresse von 16 Bit Länge 
ersetzt werden. 
Eine PC-relative Adresse gibt nicht den Abstand von 
der Basisadresse des Programmes an, sondern die 
Distanz vom darauf Bezug nehmenden Befehl aus 
(ähnlich JR-Befehl). 


Das Einbauen der RST-Befehle in ein vorhandenes Programm 
stellt kein Problem dar; aber wie sieht das mit den "PC-relativen 
Adressen" aus? 

Auch diese Adressierungsmethode ist ohne besonderen Aufwand 
in den Griff zu bekommen. Die Verwendung von PC-relativen 
Adressen ist für unseren Zweck sehr vorteilhaft, da das 
Programm die kompletten Daten, die es vom Hauptprogramm 
benötigt, direkt oder indirekt über den Stack bekommt. Aus 
diesem Grunde ist die Eintragung der zu behandelnden 
Programme in irgendeine Tabelle der Basisadressen unnötig. 
Durch die 16-Bit-Distanzangabe haben wir auch einen in jedem 


2 PC Ti Tricks Bd, II 


Falle ausreichenden Adressbereich zur Verfügung, der den 
gesamten Speicher des CPC (beim 6128 nur eine Bank) erlaubt. 
Die Eingabe der PC-relativen Adresse in ein Assembler- 
Programm ist auch absolut unkompliziert. Sie brauchen der 
Adresse lediglich die Zeichen -$ anzufügen - fertig ist die PC- 
relative Adresse. 


Angenommen, Sie haben folgenden Unterprogramm-Aufruf, der 
innerhalb eines zu behandelnden Programmes steht (der Aufruf 
bezieht sich auf eine Adresse innerhalb desselben Programmes): 


CALL NUMOUT 


Um diesen Befehl ’umzurüsten’, muß statt dessen geschrieben 
werden: 


RST &30 
CALL NUMOUT-$ 


Die Geschichte mit dem ’-$’ ist dabei kein bislang unbekannter 
Zauberbefehl des Assemblers. Der Assembler bietet die 
Möglichkeit, mittels des Symbols $ auf den Programm-Zähler 
des Assemblers und somit auf die Adresse des Befehls zuzugrei- 
fen, in dessen Zeile das $ steht. Der Befehl 


JP $ 
stellt somit beispielsweise eine Endlosschleife dar. 


Wir subtrahieren also die Adresse des zugreifenden Befehls von 
der absoluten Adresse (gemäß der vom Assembler her vorgege- 
benen Basisadresse des Programmes), auf die der Befehl zugrei- 
fen soll, und haben die relative Adresse. 


Hinweis: Der Zugriff auf den Programmzähler ist in den 
meisten Assemblern möglich. Das Dollarzeichen 
($) stellt die dafür übliche Bezeichnung dar. 
Abweichende Bezeichnungen, wie z.B. ein * 
sind aber möglich. 
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Sind alle Befehle, die sich auf Ziele innerhalb des Programmes 
selbst beziehen, so behandelt, ist das Programm schon fertig und 
kann in jedem freien Speicherbereich ablaufen, wenn das 
Relokalisations-Hilfsprogramm installiert ist. 


23.7 Ein relokatives Beispielprogramm 


Nun möchten wir Ihnen einmal die Anwendung des 
Relokalisationsprogrammes an einem praktischen Beispiel- 
programm demonstrieren. 

Das, was das Programm tut, ist nichts weltbewegendes: Nach 
einem Aufruf mit CALL zählt es rückwärts von 100 bis 0 und 
kehrt danach zum BASIC zurück. 


Obwohl das Programm selbst, abgesehen von seinem Beispiel- 
Charakter, nicht praktisch einsetzbar ist, bietet es doch recht 
interessante Routinen. Das Programm wurde nämlich, um den 
relativen Aufruf von Unterprogrammen zu demonstrieren, mit 
Ausnahme der Routine TXT OUTPUT vollkommen unabhängig 
vom Betriebssystem ausgelegt. Es enthält somit eine eigene 
dezimale Ausgaberoutine: die Routine NUMOUT. Diese 
Ausgaberoutine ruft wiederum die Routine DIV168 auf, die eine 
binäre Division durchführt. Wir werden diese Routinen noch 
näher betrachten, da sie recht übersichtliche Beispiele für etwas 
kompliziertere arithmetische Routinen darstellen. 


Zunächst einmal das Listing des Beispielprogrammes: 


; Demo-Programm fuer RELRST 


0000 21 00 65 RRDEMO LD HL, 101 ; Startwert+1 
0003 2B LOOP0O0O DEC HL ; Zaehlen 
0004 ES PUSH HL ; Zaehlerstand sichern 


0005  F7 RST &30 ; Relokalisations-Prefix 
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0006 
0009 


000A 
000B 
000C 
000E 
0010 


0013 


0014 
0015 
0018 
0019 
001C 
001F 
0021 
0023 


0024 
0025 


0029 
0028 
002C 
002F 


0031 


0034 
0036 
0037 
0038 
0039 
0038 


cD 
E1 


7C 
B5 
20 
3E 
c3 


E5 


F7 
21 
F7 
11 
01 
36 
ED 
E1 


F7 
DD 


0E 
F7 
CD 
c6 


DD 


DD 
EB 
TC 
B5 
20 
F7 


0D 00 


F5 


SA BB 


48 00 
48 00 
00 05 


20 
BO 


21 3F 00 


0A 


1D 00 
30 


77 00 


2B 


FO 


CALL 
POP 


LD 


JR 


LD 
JP 


P 


NUMOUT-$ 
HL 


A,H 
L 

NZ, LOOPOO 
A,OOH 
TXTOUT 


Ti Tri Ba,II . 
; Zaehlerstand ausgeben 
; Zaehlerstand zurueck- 
holen 
; HL 
H =0? 
; Nein: weiter zaehlen... 
; CR ausgeben 
; TXT OUTPUT 


Veraenderte Register AF, HL, DE, BC, IX 


; 16-Bit-Zahl in HL auf Bildschirm ausgeben 
; 


NUMOUT 


LOOPO1 


PUSH 


RST 
LD 
RST 
LD 
LD 
LD 
LDIR 
POP 


RST 
LD 


LD 
RST 
CALL 
ADD 


LD 


DEC 
EX 
LD 
OR 
JR 
RST 


HL 


&30 
HL,OUTBUF-$ 
&30 


DE ,OUTBUF+1- 


BC,5 
(CT Pam 


HL 


&30 


1X „OUTBUF+4 - 


c,10 
&30 
DIVI68-$ 
A,'0! 


(IX),A 


1X 
DE,HL 

A,H 

L 
NZ,LOOPO1 
&30 


; Auszugebende Zahl 
sichern 


; Ausgabe-Puffer loeschen 


$ 


; Auszugebende Zahl 
zurückholen 


$ ; IX zeigt auf Ausgabe- 
puffer 
; Divisor (konstant) 


; HL durch 10 dividieren 

; Divisionsrest --> ASCII- 
Ziffer 

; Ziffer in Puffer 
schreiben 


; Quotient ist neue Zahl 
; Zahl 

Fi =0? 

; Nein: weiter umwandeln 
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003C 21 24 00 LD HL,OUTBUF-$ ; Puffer ausgeben... 

003F 06 05 LD B,5 ; Zaehler fuer Zeichen 

0041 TE LOOPO2 LD A,CHL) ; Zeichen holen 

0042 CD 5A BB CALL TXTOUT ; Zeichen ausgeben 

0045 23 INC HL ; Naechstes Zeichen 

0046 10 F9 DJNZ LOOPO2 ; Weiter, wenn nicht 
fertig 

0048 CI RET ; Ende der Ausgabe 


; Division 16 Bit durch 8 Bit 

; Eingaba: Dividend in HL, Divisor in C 
; Ausgabe: Quotient in DE, Rest in A 

; Veraenderte Register: AF, HL, DE, BC 


0049 1100 00 DIVI68 LD DE,O ; Quotienten-Register 
vorbereiten 

004 06 10 LD B,16 ; Bit-Zaehler 

004E AF XOR A ; Arbeits- und Rest- 
Register vorbereiten 

004F CB 23 LOOP0O3 SLA E ; Quotient 

0051 CB 12 RL D ; Linsks schieben 

0053 CB 25 SA L ; Dividend 

0055 CB 14 RL H 2 Links schieben 

0057 17 RLA ; Hoechstwertigstes Bit in 
Akku 

0058 B9 CP c ; Subtraktion moeglich? 

0059 38 02 JR C,SKIPOO ; Nein: ueberspringen 

005B 13 INC DE ; Quotient erhoehen 

005C 91 SUB c ; Divisor subtrahieren 

005D 10 FO SKIPOO DJNZ LOOPOZ ; Nicht fertig: weiter... 

005F C9 RET 

0060 OUTBUF DEFS 5 ; 5 Bytes Ausgabepuffer 


Im Listing des Demonstrationsprogrammes finden sich wieder 
die bereits bekannten relativen Adressen. 
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In dem Demo-Programm sind allen Befehlen, die eine absolute 
Adresse innerhalb des Programmes selbst enthalten, RST &30- 
Befehle vorangestellt worden; die Adressen sind durch Anhängen 
von ’-$’ in PC-relative Adressen umgewandelt worden. Beispiele 
dafür sind alle Befehle, die sich auf die Adresse des Ausgabe- 
puffers (OUTBUF) beziehen (an den Adressen &0014, &0018, 
&0024 und &003C). An diesen Zugriffen zeigt sich, daß auch 
die Verwendung eines Offsets (z.B. in OUTBUF+4) mit dem 
Relokalisationsprogramm problemlos möglich ist. Die Ladebe- 
fehle, die keine sich auf das Programm selbst beziehende 
Adresse enthalten, wie beispielsweise das Laden der Konstante 
bei Adresse &0000, wurden nicht verändert. Der Befehl 
LD IX,OUTBUF+1-$ an Adresse &0024 demonstriert, wie die 
RST-Erweiterung mit Befehlen verwendet wird, die ein Index- 
Register-Prefix enthalten. Der RST-Befehl wird dem Prefix 
vorangestellt. Das Hilfsprogramm erkennt dieses und berück- 
sichtigt es beim Zugriff auf das Adressfeld des behandelten 
Befehls. (Siehe Adressen &0005 bis &0013 im Listing des 
Relokalisations-Programmes..) 

Die CALL-Befehle zu den Unterprogrammen NUMOUT und 
DIV168 wurden ebenfalls mit einem RST &30 versehen. Nicht 
behandelt wurden dagegen die Aufrufe der Routine TXT 
OUTPUT, da sich diese auf das Betriebssystem und nicht auf 
das Beispielprogramm selbst beziehen. 

Nicht behandelt wurden natürlich auch die relativen Sprung- 
befehle JR und DJNZ. Dies ist nicht erforderlich, da sie sich ja 
ohnehin nicht auf eine absolute Adresse beziehen. 


Die Devise ’lieber einmal zuviel als einmal zu wenig’ gilt nicht 
für das Relokalisationsprogramm. Unnötig gesetzte RST &30- 
Befehle zerstören den auf sie folgenden Code und führen somit 
in der Regel zu einem Programmabsturz. Wird aber in einem 
relokativen Programm auch nur ein RST &30 vergessen, so ist 
mit ziemlicher Sicherheit ein Absturz zu erwarten, wenn das 
Programm bei der Ausführung an den fälschlicherweise nicht 
behandelten Befehl gelangt. 
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Doch nun Schluß mit der Theorie. Mit dem folgenden BASIC- 
Lader können Sie das Demonstrationsprogramm selber einmal an 
verschiedenen Ausführungsadressen testen: 


10 INPUT "Basisadresse";basis 

20 oldhimem=h imem 

30 MEMORY basis-1 

40 FOR mp=basis TO basis+100 

50 READ byte 

60 POKE mp,byte 

70 cs=cs+byte 

80 NEXT 

90 IF cs<>&2751 THEN PRINT "Pruefsummenfehler!'":STOp 
100 CALL basis 

110 ? "Fertig!" 

120 MEMORY oldhimem 

130 END 

1000 DATA &21,&65,&00,&2B,&E5,&F7,&CD,&0D 
1005 DATA &00,8&E1,&7C,&B5,&20,&F5,&3E ,&0D 
1010 DATA &C3,85A,&BB,&E5,&F7,&21,&4B,&00 
1015 DATA &F7,&11,&48,&00,&01,&05,&00,&36 
1020 DATA &20,&ED,&B0,&E1,&F7,&0D,&21,&3F 
1025 DATA &00,&0E,&0A,&F7,&CD,&1D,&00,&C6 
1030 DATA &30,8&00,&77,&00,&0D,&2B,&EB,&7C 
1035 DATA &85,&20,&F0,&F7,&21,&24 ,&00,&06 
1040 DATA &05,87E,&CD,&5A,&BB,&23,&10,&F9 
1045 DATA &C9,&11,&00,&00,&06,&10,&AF,&CB 
1050 DATA &23,&CB,&12,&CB,&25,&CB,&14,&17 
1055 DATA &89,838,&02,8&13,&91,&10,&F0,&C9 
1060 DATA &00,&00,&00,&00,&00 


Dieser BASIC-Lader erfragt zu Beginn die gewünschte Basis- 
adresse, reserviert an dieser Stelle Speicherplatz und kopiert das 
Demonstrationsprogramm anschließend dort hin. Vor dem neuen 
Setzen von HIMEM mittels der MEMORY-Anweisung wird der 
alte Wert von HIMEM gespeichert, um nach Beendigung des 
Maschinenprogrammes den alten Zustand wiederherzutellen. 
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Damit dieses Programm allerdings lauffähig ist, muß natürlich 
das Relokalisations-Hilfsprogramm installiert sein. Ansonsten 
dürfte es mit ziemlicher Sicherheit zu einem Absturz des 
Rechners führen. 

Mit diesem BASIC-Lader kann das Programm an jeder für den 
Betrieb von Programmen zulässigen Adresse betrieben werden. 
Das sind prinzipiell bei der geringen Länge des BASIC- 
Programms etwa die Adressen von &1000 bis &9FFF. Dabei 
muß natürlich darauf geachtet werden, daß durch das Laden des 
Demo-Programmes nicht das Relokalisations-Hilfsprogramm 
überschrieben wird. Die höchste zulässige Basisadresse für das 
Demo-Programm ist also die Basisadresse des Hilfsprogrammes 
(die wird ja von dem Lader des Hilfsprogrammes angegeben) 
abzüglich der Länge des Demonstrationsprogrammes (101 Bytes). 
Unter Einhaltung der genannten Grenzen ist das Programm nun 
an einer beliebigen Basisadresse ausführbar. Durch Entfernen 
der RST &30-Befehle aus dem Demonstrationsprogramm kann es 
in ein ganz normales, an eine feste Adresse gebundenes 
Maschinenprogramm umgewandelt werden. Bei einem Zeit- 
vergleich werden Sie feststellen, daß das, was die Geschwindig- 
keit des Programmes angeht, praktisch keinen Unterschied 
macht. 


Nach dieser intensiven Betrachtung des Demo-Programmes 
dürfte es Ihnen nunmehr nicht schwerfallen, eigene Programme 
auf die Benutzung des Relokalisations-Hilfsprogrammes 
umzustellen. 


23.7.1 Die Unterprogramme des Demo-Programmes 


Wie bereits im vorigen Abschnitt angekündigt, wollen wir jetzt 
noch etwas näher auf die von dem Demonstrationsprogramm 
verwendeten Unterprogramme NUMOUT und DIV168 zu 
sprechen kommen. 

Wir können in diesem Kapitel natürlich keine komplette 
Abhandlung über Arithmetik-Routinen unterbringen, da diese 
den Rahmen des Kapitels bei weitem sprengen würde. Wir 
werden deshalb die Funktion der Routinen nur relativ kurz 
anreißen, um Ihnen Hinweise zu geben, wie Sie diese Routinen 
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für Ihre eigenen Zwecke umgestalten oder als Anregung für 
eigene Routinen verwenden können. Wir hoffen aber, daß diese 
Beschreibung zusammen mit den Kommentaren zu den Routinen 
im Listing Ihnen einen Einblick in die Funktionsweise der 
Routinen vermittelt. 

In jedem Fall aber können diese Routinen, besonders die Divi- 
sionsroutine, so, wie sie im Listing stehen, übernommen werden, 
wenn keine abgewandelten Anforderungen an die Routinen 
bestehen. Die Kommentare im Listing zu Beginn der jeweiligen 
Routine geben Auskunft über die Übergabe der Ein- und die 
Ausgabeparameter sowie die veränderten Register. Beide 
Routinen werden mit einem einfachen CALL-Befehl aufgerufen. 


Die Ausgaberoutine NUMOUT 


Diese Routine gibt die im Register HL übergebene 16-Bit- 
Binärzahl dezimal aus. Die Ausgabe erfolgt rechtsbündig in 
einem Feld von fünf Zeichen ab der aktuellen Cursor-Postion; 
nicht benutzte Ausgabestellen werden mit Leerzeichen aufge- 
füllt. Die Zahl wird vorzeichenlos behandelt; es können also 
ganzzahlige Werte von O0 bis 65535 ausgegeben werden. 


Die Routine benutzt zur Ausgabe den fünf Zeichen (Bytes) 
langen Ausgabepuffer OUTBUF. Dies ist nicht nur für die 
rechtsbündige Ausrichtung erforderlich, sondern auch, weil die 
Zahl von dieser Routine rückwärts aufgebaut wird. Die Ziffern 
werden von hinten beginnend erst in den Puffer geschrieben 
und nach beendeter Umwandlung als ganzes ausgegeben. 


Zu Beginn der Ausgaberoutine wird der Ausgabepuffer mit 
Leerzeichen gefüllt (Adressen &0013 bis &0023). Dies geschieht 
hier durch gezielt falschen Einsatz des Befehls LDIR. Durch die 
Befehlssequenz 


LD HL,START 

LD DE,STARTH+I 
LD BC,LAENGE-I 
LD (HL),BYTE 
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kann ein Block ab der Adresse START der Länge LAENGE mit 
dem Wert BYTE gefüllt werden, indem der Block quasi auf sich 
selbst kopiert wird. Dies ist eine relativ schnelle (wenn auch 
nicht die schnellste) und handliche Methode, um einen Speicher- 
platz mit einer beliebigen konstanten Byte-Sequenz - also auch 
mit einem einzigen Byte - zu füllen. 


Danach wird das Register IX als Zeiger auf das Ende des 
Puffers initialisiert und das Register C mit der für die 
Umwandlung benötigten Konstante 10 geladen. 


Anschließend beginnt ab dem Label LOOPOI die eigentliche 
Umwandlung. Zu diesem Zweck wird die Zahl wiederholt durch 
10 dividiert (DIV168) und der sich dabei ergebende Divisionsrest 
nach der Umwandlung in eine ASCII-Ziffer (ADD A,’0’) im 
Puffer gespeichert (LD (IX),A); anschließend wird der Puffer- 
zeiger um ein Zeichen nach vorne gesetzt (DEC IX). Der im 
Register DE von der Divisionsroutine übergebene ganzzahlige 
Quotient wird vor dem Rücksprung an den Anfang der Schleife 
als neue Zahl in HL gespeichert (EX DE,HL). 

Dieser Prozeß wird wiederholt, bis der Quotient nach einem 
Schleifendurchlauf zu null wird. Der hier verwendete Null-Test 
für 16-Bit-Register mit den Befehlen LD und OR ist eine 
einfache und schnelle für die Register HL, DE und BC anwend- 
bare Testmethode, die sich besonders im Zusammenhang mit 16- 
Bit-INC- und -DEC-Befehlen als sinnvoll erweist, da diese 
Befehle nicht die Flags beeinflussen. 


Ist der Quotient null, so sind keine weiteren Ziffern zu 
ermitteln. Die Umwandlung selbst ist beendet, die Zahl steht 
rechtsbündig, mit vorangestellten Leerzeichen im Puffer. Der 
gesamte Pufferinhalt wird in einer einfachen Schleife (LOOPO2) 
mittels der Systemroutine TXT OUTPUT auf den Bildschirm 
ausgegeben. 


Um die Arbeitsweise der Ausgaberoutine besser verständlich zu 
machen, seien hier einmal anhand des Beispiels der Umwand- 
lung der Zahl 523 die Inhalte der entscheidenden Register und 
des Puffers während der einzelnen Durchläufe der Schleife 
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LOOPOI an der Adresse &0036 aufgelistet. Die Inhalte der 
Register sind dabei dezimal angegeben, der Inhalt des Puffers 
entsprechend den darin entlatenen ASCII-Zeichen. Der Inhalt 
des Registers HL wird, da er durch die Divisionsroutine 
verändert wird, nicht wirklich an Adresse &0036, sondern vor 
Aufruf der Divisionsroutine an Adresse &002B angegeben. 


Durchlauf HL DE A Puffer 


17923: 292.23 3 
2 92 5.2 23 
3 5 05 523 


Nach dem dritten Durchlauf der Schleife ist der Quotient in DE 
gleich null und somit die Umwandungsschleife beendet. 


Am Ende der Routine erfolgt mittels RET der Rücksprung in 
das aufrufende Programm. 


Die Divisionsroutine DIV 168 


Diese Routine dividiert eine binäre 16-Bit-Zahl durch eine 8- 
Bit-Zahl und übergibt einen 16-Bit-Quotienten und einen 8- 
Bit-Divisionsrest zurück. Alle Zahlen sind vorzeichenlose ganze 
Zahlen. 


Zum Verständnis der Funktionsweise dieser Routine sind recht 
intime Kenntnisse der binären Arithmetik erforderlich. Da die 
fundierte Vermittlung dieser Kenntnisse den Rahmen dieses 
Kapitels bei weitem sprengen würde, müssen wir an dieser Stelle 
leider darauf verzichten. 

Als Hinweis auf die Funktionsweise der Divisionsroutine sei hier 
lediglich erwähnt, daß sie nach dem ins Binärsystem übertrage- 
nen Prinzip der bekannten schriftlichen Division funtioniert. 
Verzweifeln Sie aber trotzdem nicht am Verständnis dieser 
Routine. Eine binäre Division ist eine der kompliziertesten 
elementaren Routinen in Maschinensprache. Spielen Sie die 
Routine einfach einmal anhand einiger Beispiele auf dem Papier 


248 CPC Tips & Tricks Bd. II 


durch und experimentieren Sie etwas. Ich persönlich habe die 
binäre Division auch erst verstanden, als ich sie zum erstem Mal 
selbst programmiert hatte. 


23.8 Die Grenzen dieser Relokalisationsmethode 


In diesem Abschnitt sollen einmal die Grenzen der in diesem 
Kapitel vorgestellten Relokalisationsmethode abgesteckt werden. 


Mit unserem kleinen Relokalisationsprogramm können wir ohne 
Probleme jeglichen Zugriff auf ein Objekt behandeln, dessen 
Adresse im Operandenfeld eines Befehls steht. Etwas kompli- 
zierter wird die Sache, wenn wir über eine innerhalb einer 
Datenstruktur, beispielsweis eine Tabelle von Sprungadressen, 
stehende Adresse auf das Objekt zugreifen wollen. Aber auch 
dieses Problem läßt sich lösen. 


Zu diesem Zweck muß das Maschinenprogramm allerdings 
herausbekommen, wo es selbst im Speicher steht. Zu diesem 
Zweck muß lediglich dieses winziges Unterprogramm aufgerufen 
werden: 


GETPC POP HL 
JP (HL) 


Nach dem Aufruf mit CALL GETPC holt dieses Unter- 
programm mittels des POP-Befehls seine Rücksprungadresse 
vom Stack und springt diese mittels des JP (HL) an. Dies hat 
denselben Effekt wie ein simpler RET-Befehl, liefert aber 
Zusätzlich die Rücksprungadresse, also die Adresse direkt hinter 
dem dieses Unterprogramm aufrufenden CALL-Befehl, in HL 
zurück. Damit haben wird schon fast alles, was wir brauchen. 
Mit der Befehlssequenz 


RST &30 
CALL GETPC-$ 
BASE RST &30 
LD (BASADR-$),HL 
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kann die tatsächliche absolute Adresse des Labels BASE ermittelt 
werden. Einträge in einer Adressentabelle (z.B. einer Sprung- 
tabelle) können nun relativ zu BASE angegeben wereden. Statt 


DW adresse 
schreibt man also nun 

DW adresse-BASE 
in die Tabelle. Vor dem Zugriff auf das Objekt muß dann noch 
die Adresse von BASE, die in dem 16-Bit-Speicher BASADR 
aufbewahrt wird, zu der relativen Adresse addiert werden. 


Angenommen, die relative Adresse befände sich im Register HL, 
könnte dies beispielsweise mit der Sequenz 


RST &30 
LD DE,(BASADR-$) 
ADD HL,DE 


geschehen. Die dazu benötigten Unterprogramme und Speicher 
nehmen so wenig Platz in Anspruch, daß sie kaum stören 
dürften. 

In unseren Beipielen haben wir das Relokalisations-Prefix 
(RST &30), soweit es nötig war, bereits mit angegeben. 


Zusammen mit der hier gegebenen Zusatzhinweisen kann man 
mit unserem kleinen Relokalisations-Hilfsprogramm praktisch 
alle Zugriffe, die sich auf Adressen innerhalb desselben 
Programmes beziehen, relokativ gestalten. Lediglich der Zugriff 
auf den Adressbereich eines anderen Programmes ist noch mit 
recht hohem Aufwand verbunden, weil wir nicht über die 
Möglichkeit eines globalen Zugriffes verfügen. 


23.9 Das Laden eines relokativen Programmes 
Zum Laden kleinerer Programme erweist sich der BASIC-Lader, 


wie zum Beispiel bei unserem Demo-Programm, als recht prak- 
tisch. Der BASIC-Lader kann ohne großen Aufwand mit Hilfe 


2 PC Ti Tricks Bd, II 


eines Programmes erstellt werden. Der Lader kann dabei direkt 
so gestaltet werden, daß er die Ermittlung der Basisadresse 
anhand von HIMEM gestattet, wie das bei dem Lader für das 
Relokalisations-Hilfsprogramm geschieht. 


Für längere Programme ist dies nicht adäquat, da die Länge des 
BASIC-Laders recht schnell mit der Länge des Programmes 
wächst (der BASIC-Lader ist grundsätzlich mehr als dreimal so 
lang wie das eigentliche Programm). Hier bietet sich eher ein 
Ladeprogramm an, das im Stande ist, ein auf die Basisadresse 
&0000 gelegtes Binärfile relokativ einzulesen, wobei auch hier 
eine Ermittlung der Basisadresse mittels HIMEM sinnvoll ist. 
Ein solches Dienstprogramm ist in Vorbereitung und wird 
wahrscheinlich auf der Diskette zu diesem Buch erscheinen. 
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Rund um den CPC 464 viele Anregungen und 
wichtige Hilfen. Von Hardwareaufbau, 
Betriebssystem, BASIC-Tokens, Anwendungen 
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interessanten Programmen bis zu einer 
umfangreichen Dateiverwaltung, Soundeditor, 
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eine Fülle von Möglichkeiten. Diese Tips 
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Wer PEEKS und POKES zum CPC 464 kennen 
und anwenden will, der findet hier umfassende 
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Prozessors über Betriebssystem und Interpreter 
bis hin zur Einführung in die Maschinensprache. 
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Von den Grundlagen der Maschinensprache- 
programmierung über die Arbeitsweise des Z80- 
Prozessors und einer genauen Beschreibung 
seiner Befehle bis zur Benutzung von 
Systemroutinen ist alles ausführlich und mit 
vielen Beispielen erklärt. Im Buch enthalten sind 
Assembler, Disassembler und Monitor als 
komplette Anwenderprogramme. So wird der 
Einstieg in die Maschinensprache leicht- 
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Alles über Floppyprogrammierung vom 
Einsteiger bis zum Profi. Natürlich mit 
ausführlichem ROM-Listing, einer äußerst 
komfortablen Dateiverwaltung, einem 
hilfreichen Disk-Monitor und einem 
ausgesprochen nützlichen Disk-Manager. Dazu 
eine Fundgrube verschiedener Programme und 
Hilfsroutinen, die das Buch für jeden Floppy- 
Anwender zur Pflichtlektüre machen! 
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ausführliche und verständliche Einführung in das 
Gebiet der Datenfernübertragung: was ist DFÜ, 
BTX, DATEX, Mailbox, alles über Modems und 
Koppler. Begriffserklärung: Originate, Answer, 
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selbstgestrickt, Postbestimmungen u. v. m. 
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Endlich CP/M beherrschen! Von grundsätzlichen 
Erklärungen zu Speicherung von Zahlen, 
Schreibschutz oder ASCII, Schnittstellen und 
Anwendung von CP/M-Hilfsprogrammen. Für 
Fortgeschrittene: Fremde Diskettenformate 
lesen, Erstellen von Submit-Dateien u. v. m. 
Dieses Buch berücksichtigt die Versionen CP/M 
2.2 und 3.0 für Schneider 464, 664 und 6128. 


Schieb/Weiler 

Das CP/M-Trainingsbuch zum CPC 
260 Seiten, DM 49, - 

ISBN 3-89011-089-4 






für Postgirokonto Nr. Bo | Für Vermerke des Absenders 


789 - 436 





Einlieferungsschein 
— Bitte sorgfältig aufbewahren — 


Tatil tietateäfe en 
FENG 
Em un a ne 





für Postgirokonto Nr. 























_ [89-436 "DATABECKERGmbH 
Postgirokonto Nr. Merowin g erstr. 30 
Merowingerstr. 30 789 - 436 4000 Düsseldorf 
Posgrocamt—2— nn. 
"4000 Düsseldorf Essen i Postgirokonto Nr. 789 F 436 


YOWLIONSOgT 


“ 
{3 
E 
Ö 
2 
[4 
o 
a 





ı de ® ö _ 
oO |} > ® c 
zZ ”2cg85. et g283 £ 
mm „0580525 9,5% & 
a 0-7 Sn0% <czZ20 3. > 
zZ SSR 308 co No N Q. 
uEc °:9989309 _$3s°08 o 2=| 
2b PO9Ocno zZENSFEO SE 
De) oc [8] 
als oz ra 0 %3 Donolte BEOLUNS 
Sieg 5553225388 =238238 8455 
QIXL DS2LS5T29HI2 22. ı0n Sm9Ehb 





LEI 9LE 


ee 
8 
= 
5 
@Nn 
oc 
13 
= 
4 
55 
= 7 


aBurjdw3 uep ue veßunjenıW 404 


Bedienen Sie sich der Vorteile 
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